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IDENTIFICATION 


PRODUCT CODE: AC=9208D-MC 

PRODUCT NAME: CZRJGDC RPO4/5/6 DISKLESS CONTROLLER TEST=PART | 
DATE CREATED: MAY, 1979 

MAINTAINER: DIAGNOSTIC ENGINEERING 

AUTHOR: PETE BLACKSTONE 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS 

A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 
DIGITAL EQUIPMENT CORPORATION ASSUMES NO 

—- bah opie i: FOR ANY ERRORS THAT MAY APPEAR IN THIS 
MANUAL . 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED 
TO THE PURCHASER UNDER A LICENSE FOR USE ON A SINGLE 
COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION OF 
DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN 
WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO 

RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL. 
COPYRIGHT (C) 1976,1979 DIGITAL EQUIPMENT CORPORATION 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION 
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1.0 


2.0 
2.1 


2.2 


2.3 


3.0 


ABSTRACT 


THE DIAGNOSTIC IS USED TO TEST RPO4/5/6 DEVICE CONTROL LOGIC 
CONNECTED TO EITHER AN RH11 OR RH70 DISK DRIVE CONTROLLER 


THIS DIAGNOSTIC TESTS THE RH11 AND DCL OF AN RJPO4/5/6 SUBSYSTEM. 
117 DOES NOT USE THE DISK SURFACE OR ANY SIGNALS FROM THE MDLI. 
1T REQUIRES THAT THE DCL CABLE BE PLUGGED INTO THE MDLI OR 

BE APPROPIATELY TERMINATED. If THE DISK IS POWERED UP, IT 

1S REQUIRED TO GET THE DISK TO THE “‘HEADS UNLOADED" POSITION. 
AFTER A SUCCESSFUL RUN (WITH NO ERRORS) OF THIS DIAGNOSTIC 

1T CAN BE ASSERTED THAT, ‘THAT PART OF THE DCL THAT HANDLES 
DATA OR DATA ASSOCIATED LOGIC IS WORKING PROPERLY’. THIS 
IMPLIES THAT, THE PART OF THE LOGIC WHICH HANDLES MECHANICAL 
COMMANDS OR ITS ASSOCIATED LOGIC 1S NOT TESTED IN THIS 
DIAGNOSTIC. ALL DATA COMMANDS USE THE MAINTENANCE REGISTER 

IN THE WRAPAROUND MODE. 


THE DIAGNOSTIC DOES NOT DO ANY TESTING OF THE RH70 CONTROLLER 

WHEN IT IS USED ON AN RWPO4/5/6 SYSTEM TO TEST RPO4/5/6 DISK DRIVES 
CONNECTED TO THAT TYPE OF CONTROLLER. IT 1S ASSUMED THAT THE 

RH70 SPECIFIC CONTROLLER DIAGNOSTIC HAVE BEEN SUCCESSFULLY 

RUN TO COMPLETION BEFORE THIS DIAGNOSTIC IS RUN. 


REQUIREMENTS 

EQUIPMENT 

PDP-11 COMPUTER WITH CONSOLE TELETYPE, AND A RPO4/5/6 DISK SYSTEM. 
THE RPO4/5/6 DISK SYSTEM WILL CONSIST OF AN RH11/RH70 CONTROLLER, 
AND DISK CONTROL LOGIC (DCL), THE CABLE FROM THE DCL CAN BE 
CONNECTED TO THE MDLI, BUT IF NOT THAT CABLE MUST BE PROPERLY 
TERMINATED. 

STORAGE 

THIS PROGRAM REQUIRES 16K WORDS OF MEMORY. 

PRELIMINARY PROGRAMS 

THIS CAN BE THE FIRST PROGRAM RUN ON AN RJPO4/5/6 SYSTEM BUT THE 
CONTROLLER DIAGNOSTICS MUST BE RUN FIRST IN THE CASE OF AN 
RWP04/5/6 SYSTEM. 

LOADING PROCEDURE 

USE STANDARD PROCEDURE FOR LOADING .ABS TAPES 

STARTING PROCEDURE 

SWITCH 12 MUST BE SET WHEN THIS PROGRAM IS TO BE RUN USING AN 
RH70 CONTROLLER. 17 CAN BE SET AT THE FRON PAEL, OR IN THE 
SOFTWARE SWITCH REGISTER IF THE OPERATOR SO DESIRES. SE 


PARAGRAPH 5.1 FOR A DESCRIPTION OF SOFTWARE SWITCH REGISTER 
OPERATION. 
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CONTROL SWITCH SETTINGS 
SEE SECTION 5.1 
STARTING ADDRESS 


START AT ADDRESS 200---FOR NORMAL RUN 
START AT ADDRESS 204---T10 SELECT NON-DEFAULT ADDRESSES 
START AT ADDRESS 210---FOR UNIT SELECTION 


200 START 

ALL SWITCHES MUST BE DOWN FOR WORST CASE RUN. WITH THIS 
STARTING ADDRESS ALL THE RPO4/5/6S ON THE SYSTEM WILL BE 
TESTED ONE AT A TIME BEFORE “END PASS"’ IS PRINTED OUT. 
TESTING WILL START WITH THE LOWEST UNIT NUMBER DRIVE 


THAT 1S POWERED UP (THAT 1S THE LOWEST UNIT NUMBER RHAS REGISTER 


THAT RESPONDS) THEN GO ON TO THE NEXT HIGHER UNIT NUMBER 
THAT IS POWERED UP. 


204 RESTART 

SAME AS START 200 WITH THE FOLLOWING EXCEPTION: THE 
PROGRAM WILL INTERROGATE THE OPERATOR FOR A NON-STANDARD 
C.S.R. AND VECTOR ADDRESS BEFORE STARTING. ONCE THE 
QUESTIONS HAVE BEEN CORRECTLY ANSWERED, AND IT IS ALSO 
NECESSARY TO SELECT A PARTICULAR UNIT FOR TEST (TYPICAL 
PROGRAM EXECUTION FROM ADDRESS 210), THE PROCESSOR MAY 

BE HALTED AND RESTARTED FROM ADDRESS 210. THE NEW 
PARAMETERS WILL NOT BE CHANGED UNLESS THE PROGRAM IS AGAIN 


RESTARTED FROM ADDRESS 204. IF ALL UNITS ARE TO BE CHECKED, 


THE PROCESSOR NEED NOT BE TOUCHED. THE PROGRAM WILL 
AUTOMATICALLY RESTART AT 200 AFTER RECEIVING THE NEW DEVICE 
PARAMETERS. 


210 START 

ALL SWITCHES MUST BE DOWN FOR WORST CASE RUN. WITH THIS 
STARTING ADDRESS THE CONSOLE TELETYPE WILL ASK FCR THE UNIT 
NUMBER TO BE TESTED. THEN ONLY THAT UNIT WILL BE TESTED 
FOR EACH PASS OF THE PROGRAM. 

PROGRAM AND/OR OPERATOR ACTION 

1. LOAD THE PROGRAM INTO MEMORY. 

SET STARTING ADDRESS ON THE SWITCH REGISTER 

PRESS “LOAD ADDRESS"*. 


SET “OPERATIONAL SWITCH SETTINGS’ (SEE SECTION 5.1) 
WORST CASE 1S ALL SWITCHES DOWN. 


5. PRESS ‘START’. 
6. FOR THE FIRST PASS EACH TEST WILL BE EXECUTED ONCE 


ON THE DRIVES PRESENT OR DRIVE SELECTED BEFORE “'END 
PASS" IS PRINTED. THE FIRST PASS WILL REQUIRE OPERATOR 


> Ww m~ 
. . om 


SEQ 0004 


on 
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INTERVENTION IF THE PROGRAM 1S NOT RUN UNDER AN “‘ACT<11" 
MONITOR. THE SECOND AND SUBSEQUENT PASSES WILL EXECUTE 
EACH TEST FOUR TIMES ON EACH DRIVES PRESENT OR DRIVE 
SELECTED BEFORE “END PASS*' IS PRINTED. THE SECOND 

AND SUBSEQUENT PASSES DO NOT NEED ANY OPERATOR INTERVENTION. 


OPERATING PROCEDURE 
OPERATIONAL SWITCH SETTINGS 


1— THE PROGRAM 1S BEING RUN ON A SWITCHLESS PROCESSOR (1. E. 

AN 11/34) IT WILL DETERMINE THAT A HARDWARE SWTICH REGISTER 

1S NOT PRESENT, AND WILL USE A ““SOFTWARE'’ SWITCH REGISTER. 

THE SETTINGS OF THE ‘‘SOFTWARE’’ SWITCHES ARE CONTROLLED 

THROUGAH A KEYBOARD ROUTINE WHICH IS CALLED BY TYPING A 

"CONTROL G'. THE PROGRAM WILL RECOGNIZE A ‘CONTROL G* AT ANY 
TIME EXCEPT WHEN IT IS AT A HIGHER PRIORITY PROCESSIHG A RPO4/5/6 
INTERRUPT. THE ‘‘SOFTWARE’’ SWITCH VALUEA ARE ENTERED AS AN 

he “pec IN RESPONSE TO A PROMPT FROM THE SWITCH ENTRY 
ROUTINE: 


*SWR = NNNNNN NEW =' 


EACH TIME SWITCH SETTINGS ARE ENTERED, THE ENTIRE SWITCH 
REGISTER IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT 
REQUIRED. ‘RUBOUT' AND ‘CONTROL U* FUNCTIONS MAY BE USED T0 
CORRECT TYPING ERRORS DURING SWITCH ENTRY. 


ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE ‘‘SOFTWARE"’ 
SWITCH REGISTER MAY ALSO BE USED. IF THE PROGRAM FINDS ALL 
16 SWITCHES IN THE 'UP' POSITION WHEN IT IS STARTED, ALL 
SWITCH REGISTER REFERENCES WILL BE TO THE “SOFTWARE” REGISTER 
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. 


SWITCH DEFINITIONS ARE GIVEN IN SECTION 9 “‘OPERATIONAL 
SWITCH SETTINGS’ HOWEVER THE DETAIL DESCRIPTION ARE GIVEN 
HERE. 


SWITCH 15 = HALT ON ERROR 

WHEN THIS SWITCH IS SET, IF THE PROGRAM FINDS AN ERROR 
THEN THE APPROPIATE INFORMATION WILL BE PRINTED OUT 

AND THEN THE PROGRAM WILL HALT. AFTER THIS HALT, PRESSING 
“CONTINUE'’ WILL CONTINUE WITH THE PROGRAM TILL THE NEXT 
ERROR IS FOUND WHEN THE SAME THING WILL HAPPEN, 


SWITCH 14 = LOOP ON TEST 

WHEN THIS SWITCH IS SET THE PROGRAM WILL BEGIN TO LOOP 
ON THE CURRENT TEST BEING EXECUTED. FOR EXAMPLE IF THIS 
SWITCH 1S SET WHEN THE PROGRAM IS IN TEST 10 THEN THE 
PROGRAM WILL KEEP EXECUTING ALL OF TEST 10 REPEATEDLY. 
ONE WAY TO BE SURE THAT THE PROGRAM IS IN THE EXPECTED 
TEST 1S TO SET THIS SWITCH DURING AN ERROR PRINTOUT OR 
DURING A PROGRAM HALT. 


SEQ 0005 
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SWITCH 13 = INHIBIT ERROR TYPEOUTS 

WHEN THIS SWITCH IS SET FURTHER ERROR PRINTOUTS WILL 

CEASE, HOWEVER OPERATOR INSTRUCTIONS SUCH AS ‘’STOP DRIVE x’’ 
WILL CONTINUE. AT THE END OF PASS “‘TOTAL NUMBER OF ERRORS 
ON THIS PASS ON DRIVE X"’ WILL BE TRUE, THAT IS, ALTHOUGH 
PRINTOUTS WERE INHIBITED IF THAT PASS FOUND 6 ERRORS, 

IT WILL SAY SO. 


SWITCH 12 = RH70 CONTROFLLER SELECT 

THIS SWICH MUST BE SET AT THE START OF THE PROGRAM WHEN THE 
DISK DRIVES TO BE TESTED ARE CONNECTED TO AN RH70 

CONTROLLER. 11 MUST NOT BE SET WHEN DISK DRIVES TO BE TESTED 
ARE CONNECTED TO AN RH11 CONTROLLER. 


SWITCH 11 = INHIBIT ITERATIONS 

WHEN THIS SWITCH 1S SET THE PROGRAM ON SECOND PASS WILL 
ty key EACH TEST FOUR TIMES BUT WILL DO EACH TEST 
ON NLY. 


SWITCH 10 - BELL ON ERROR 

WHEN THIS SWITCH IS SET, IF THE PROGRAM FINDS AN ERROR 

THE "‘BELL"’ OR “‘ALARM’’ WILL BE SOUNDED. THIS SWITCH IS USEFUL 
WHEN SWITCH 11 IS SET YET INFORMATION 1S NEEDED WHEN ANY ERROR 

1S DETECTED. TAKE THE EXAMPLE OF A PROGRAM LOOPING ON A TEST WITH 
SWITCH 11 SET TO HELP SCOPING. THEN IF THIS SWITCH IS 

SET AND THE BELL OR ALARM SOUNDS IT MEANS THAT THE ERROR 

1S PRESENT BUT IF THE BELL OR ALARM STOPS IT MEANS THAT 

THE ERROR 1S NOT PRESENT. 


SWITCH 9 = LOOP ON ERROR 

WHEN THIS SWITCH IS SET, IF THE PROGRAM FINDS AN ERROR 

THEN GENERALLY THE PROGRAM WILL LOOP BACK TO THE LAST 
EXECUTED ‘SCOPE’ STATEMENT. IF ON THE SECOND TIME 

THROUGH AN ERROR 1S FOUND IT WILL AGAIN LOOP BACK T0 

THAT ““SCOPE'' STATEMENT. THIS LOOPING WILL CONTINUE AS LONG 
AS THE ERROR IS PRESENT AND THIS SWITCH IS SET. HOWEVER 

IF THE ERROR IS NOT PRESENT AT ANY TIME THEN IT WILL 
CONTINUE NORMALLY WITH THE PROGRAM. EACH TIME THE ERROR 

1S ENCOUNTERED PRINTOUT WILL TAKE PLACE UNLESS SWITCH 11 

1S ALSO SET. DURING BEGUG, USING A SCOPE, IT 1S RECOMMENDED 
THAT SWITCH 11 IS ALSO SET. 


NOTE: ALSO SEE SECTION 8.3 


SWITCH 8 = LOOP ON TEST IN SWR <7:0> 

THIS IS A SPECIAL SWITCH. WHEN SET SWITCHES 0 THRU 7 
HAVE ONE MEANING AND WHEN RESET SWITCHES 0 THRU 7 HAVE 
ANOTHER MEANING. THIS MEANS THAT ANY SETTING OF SWITCH 
0 THRU 7 MUST BE DONE WITH SWITCH 8 IN THE APPROPIATE 
POSITION. WHEN THIS SWITCH 1S SET THEN SWITCHES 0 THRU 
? GIVE THE TEST NUMBER TO BE LOOPED ON. FOR £XAMPLE 
WITH SWITCH 8 SET AND SWITCH 3 SET THE PROGRAM Wilt LOOP 


SEQ 0006 


on 
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ON TEST 10. HOWEVER THIS SETTING MUST BE DONE AT THE 
BEGINNING OF THE PROGRAM THEN ALL THE TESTS FROM 1 TO 10 
WILL BE EXECUTED AND THEN TEST 10 WILL BE REPEATED OVER 
AND OVER AGAIN. WHEN THIS SWITCH 1S NOT SET THEN SWITCHES 
OQ THRU 7 HAVE THE MEAING ITS NAME INDICATES. 

FOR EXAMPLE SWITCH 7 1S ‘“STOP FURTHER COMPARES: THAT IS 
1f SWITCH 8 IS NOT SET AND SWITCH 7 IS SET THEN WHEN A 
DATA ERROR IS DETECTED NO FURTHER COMPARES WILL BE DONE. 
FOR EXAMPLE IN A 256 WORD BUFFER IF ALL THE WORDS ARE IN 
ERROR THEN AFTER SEEING THE PRINTOUT FOR THE FIRST FEW 
WORDS SETTING SWITCH 7 ONLY WILL STOP FURTHER PRINTOUTS 
OF THIS ERROR AND GO ON WITH THE TEST RATHER THAN PRINT 
ALL THE 256 WORDS. HOWEVER If THIS WAS DONE WITH SWITCH 11 
THEN THE NEXT ERROR THAT THE PROGRAM DETECTS IN A_SUB- 
SEQUENT TEST WILL ALSO BE LOST. BUT WITH SWITCH 7, ONLY 
THIS GROUP OF DATA ERRORS ARE NOT PRINTED OUT. ANOTHER 
EXAMPLE OF SWITCH 8 BEING LOW 1S WITH SWITCH 6, WHICH 

1S “ECC TEST-COMPARE END RESULT ONLY’. THAT IS IF SWITCH 
8 1S NOT SET AND SWITCH 6 IS SET THEN ON ECC TESTS (TEST 
120 THRU TEST 134) INSTEAD OF COMPARING CONTENTS OF THE 
POSITION REGISTER AND PATTERN REGISTER AFTER EVERY CLOCK, 
COMPARES WILL ONLY BE DONE AT THE END OF ALL THE CLOCKS. 


NOTE: ALSO SEE SECTION 8.3 


SWITCH 7 = STOP FURTHER COMPARES IF SWO8 IS LOW. 

IF SWITCH 8 IS SET AND THIS SWITCH IS ALSO SET THEN THIS 
SWITCH GIVES THE TEST NUMBER TO BE LOOPED ON AS INDICATED 
IN THE DESCRIPTION OF SWITCH 8. IF SWITCH 8 IS NOT SET 

AND THIS SWITCH IS SET THEN THE PROGRAM WILL DO AS THE 

NAME INDICATES. FOR EXAMPLE IN A 256 WORD BUFFER IF ALL 
THE WORDS ARE IN ERROR THEN AFTER SEEING THE ERROR PRINTOUTS 
OR THE FIRST FEW WORDS THEN SETTING SWITCH 7 WITH SWITCH 8 
WOT SET WILL STOP THE PRINTOUT OF ALL 256 WORDS BUT WILL 
NOT STOP THE PRINTOUT OF ANOTHER ERROR IN ANY SUBSEQUENT 
TEST. IJ1T IS EXPECTED THAT SWITCH 7 AFTER BEING SET FOR 

A WHILE TO STOP PRINTING ALL THE 256 WORDS WILL BE RESET 
AGAIN TO ENABLE THE PRINTING OF OTHER DATA ERRORS. 


SWITCH 6 - ECC TEST=COMPARE END RESULTS ONLY IF SWO8 IS LOW 
IF SWITCH 8 IS SET AND THIS SWITCH IS ALSO SET THEN THIS 
SWITCH GIVES THE TEST NUMBER TO BE LOOPED ON AS INDICATED 
IN THE DESCRIPTION OF SWITCH 8. IF SWITCH 8 IS NOT SET 

AND THIS SWITCH IS SET THEN ON ECC TESTS (TEST 120 THRU 
TEST 134) INSTEAD OF COMPARING CONTENTS OF THE POSITION AND 
PATTERN REGISTERS AFTER EVERY CLOCK, COMPARES WILL BE DONE 
ONLY AT THE END OF ALL THE CLOCKS. 


SUB-ROUTINE ABSTRACTS 
SEE SECTION 9 “SUBROUTINES” 


SEQ 0007 
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ERRORS 


ERROR PRINTOUTS CONTAIN THE ERROR ADDRESS AND OTHER 
PERTINENT INFORMATION CONCERNING THE PARTICULAR FAILURE. 
THIS INFORMATION MAY BE THE CONTENTS OF RELEVANT RP04/5/6 
REGISTERS OR GOOD/RECEIVED DATA. IF THE ERROR OCCURRED IN A 
SUBROUTINE, THE ADDRESS OF THE SUBROUTINE CALL IS ALSO 
GIVEN. REFER TO THE PROGRAM LISTING AT THE STATED 

ADDRESS TO DETERMINE THE CAUSE OF THE ERROR. 


*FATAL' ERRORS 


IN THE EVENT THAT THE DISK DRIVE BECOMES UNAVAILABLE TO THE 
CONTROLLER, POWERS DOWN, OR CERTAIN CRITICAL STATUS BITS 
CANNOT BE CLEARED PRIOR TO THE START OF A TEST SEQUENCE = THIS 
INFORMATION WILL BE COMMUNICATED TO THE OPERATOR. IN 

ADDITION THE TTY BELL WILL RING AND THE PROGRAM WILL HALT. 


1T 1S SUGGESTED THAT IF THIS HAPPENS THE OPERATOR LOAD 

ADDRESS 200 (210) AND RESTART THE PROGRAM AS A FIRST ATTEMPT 

TO SOLVE THE PROBLEM. If THE FAILURE CONTINUES TO OCCUR, 

LOOK IN THE TEST LISTING FOR THE "HALT" INSTRUCTION AND REPLACE 
IT PLUS THE TWO WORDS ("'TYPE ,CPHALT'’) ABOVE WITH ‘NOP'S. 

WITH TTY ERROR PRINTOUTS INHIBITED A SCOPE LOOP CAN BE 
INITIATED FOR THE TEST IN QUESTION. 


1T IS ALSO POSSIBLE TO CONTINUE FROM THE HALT 
POINT, BUT IT 1S NOT RECOMMENDED AS ALL FOLLOWING TESTS WILL 
EXHIBIT THE SAME SYMPTOMS AND GIVE MISLEADING ERROR PRINTOUTS. 


RESTRICTIONS 


If THERE IS A DRIVE CONNECTED THEN THE OPERATOR MUST HAVE 
THE DRIVE PORT SWITCH LOCKED EITHER ON PORT A OR PORT B 
BUT NEVER LEAVE IT IN THE PROGRAMMABLE STATE. IF THERE 
1S NO DRIVE CONNECTED THEN THE CABLE NORMALLY GOING FROM 
THE DCL TO THE MDL] MUST BE PROPERLY TERMINATED. 


SWITCH 12 MUST BE SET WHEN RUNNING ON AN RH70 CONTROLLER AND 
1T MUST NOT BE SET WHEN RUNNING ON AN RH11 CONTROLLER. 
BECAUSE CF THE REQUIREMENT FOR IT TO BE SET WHEN USING AN 
RH70, THE PROGRAM CANNOT BE RUN IN CHAIN MODE WHEN USING THE 
SOFTWARE SWITCH REGISTER FEATURE WHILE RUNNING ON AN RH7O. 
THIS IS BECAUSE THE ROUTINE WHICH GETS ‘‘SOFTWARE’’ SWTICH 
SETTINGS IS NOT OPERABLE WHEN IN CHAIN MODE. 


MISCELLANEOUS 
EXECUTION TIME 


THE FIRST PASS OF THE PROGRAM WILL TAKE 30 SECONDS PER 
DRIVE. SUBSEQUENT PASSES WILL TAKE 1 MINUTE. 


STACK POINTER 
THE STACK IS INITIALLY SET TO 1000 


SEQ 0008 
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8.3 OPERATOR SELECTABLE SCOPE LOOPS 


HERE IS A DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR WORKS. 
FOR INSTRUCTIONS REGARDING USAGE OF THIS TECHNIQUE, HIT “C ANY 
TIME WHILE THE PROGRAM 1S RUNNING. ON HITTING AN ERROR IF THE 
LOOP ON ERROR SWITCH IS SET, THE PROGRAM GOES BACK = USUALLY 
BACK TO THE BEGINNING OF THE TEST. 


WHEN THIS OPERATOR SELECTABLE SCOPE LOOP 1S USED THEN THE POINT 
THE PROGRAM GOES BACK TO CAN BE CHANGED. 

THE RESTRICTIONS TO THE POINT WHERE THE PROGRAM CAN GO ARE: - 

1. IT MUST BE WITHIN THE TEST UNDER CONSIDERATION 

2. LOOP ON ERROR SWITCH MUST BE SET 

3. THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONSIDERATION 

1f THE ERROR DOES NOT OCCUR WITHIN THE TEST UNDER CONSIDERATION 
THE PROGRAM WILL REVERT TO NORMAL OPERATION. HOWEVER, IF LOOP ON 
TEST SWITCH 1S SET AND THIS OPERATOR SELECTABLE SCOPE LOOP IS USED 
THEN THE PROGRAM WILL LOOP BACK TO THE SELECTED POINT WHEN IT 
COMES TO THE END OF THE TEST UNDER CONSIDERATION. 


AFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH 1S PUT DOWN THEN 
NORMAL OPERATION WILL CONTINUE. 


8.4 PROGRAM REVISION HISTORY 


9.0 PROGRAM DESCRIPTION 


THE FOLLOWING SECTIONS DESCRIBE EACH TEST AND SUBROUTINES 
IN DETAIL AND CAN ALSO BE USED AS AN INDEX TO THE LISTING. 
THE LEFT MOST COLUMN IS THE LINE NUMBER WITHIN THE LISTING 
WHERE THAT ITEM WILL BE FOUND. 


C) 
474 TITLE CZRIGDO,RPO4/5/6 DSKLS CTRLRI 
475 :*COPYRIGHT (C) 1976,1978 
476 >*DIGITAL EQUIPMENT CORP. 
Ad ; SMAYNARD, MASS. 01754 
4 
479 :*PROGRAM BY PETE BLACKSTONE 
480 
481 STHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
482 :*PACKAGE (MAINDEC=11-DZQAC-C3), JAN 19, 1977. 
483 ie 
484 


STON TJONSSONSSONS SONS JONSSON JONSSON ONS ON JON SON ON SON SON SONS ON: 
SLOENSSONSSONS ONTENTS ONS ONSEN DONT ON: ATT LATT LATTA ATT AAT AAT AATT AAS 
SPONSTONS SONS ONS ONS SONS SON SSONSSOENSS EN SONS ON SON SON ON SONS JONSON: 


;*DRIVE MUST BE LOCKED ON PORT A OR PORT B 
p/tN@S NO NOL NOS NOL NOL Ve Ne NeZ Ne Nes Nes Nes s\es Nes Nes i\esi\e 


SPINA NOL NOL NOL NOS NZ NOS ENO NOL NOL Nese Nes Nes Nes Nes s\esi\e 
s/tNO@L NOS NOS NOS NOS Nessa Nes Nes Nes Nes Nes Nes Nes i\es Ness \esi\e 
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497 ;* INTERNAL PROGRAM MACROS BEGIN HERE 
498 peeeeeeeerererrrrererererrerererrete 
499 
500 pp eteevereererrrereeereerceererereererrrereerrerereereererereTeTe 
501 ;* 
502 ;*®NOTE: MACROS BEGINNING WITH ‘'.$"° ARE SUPPLIED BY AN 
503 3e EXTERNAL SYSMAC.SML SYSTEM MACRO PACKAGE WHICH 
504 3 MUST BE MADE AVAILABLE TO THE SOURCE PROGRAM 
eae st AT ASSEMBLY TIME. 
507 - *eeeeeeererrerereeeeeeeereeEeTeeeKrereeeeeteeeetereeeeeterereeee 
508 
509 
sty -SBTTL OPERATIONAL SWITCH SETTINGS 
-* 
512 3* SWITCH USE 
513 Te ewer eww woeeeoooeecoces 
514 ;* 15 HALT ON ERROR 
515 ;* 14 LOOP ON TEST 
516 ;* 13 INHIBIT ERROR TYPEOUTS 
517 ;* 12 RH70 CONTROLLER SELECT 
518 “7 11 INHIBIT ITERATIONS 
519 ;* 10 BELL ON ERROR 
520 ad 9 LOOP ON ERRGR 
521 3* 8 LOOP ON TEST IN SWR<7:0> 
522 3* ? STOP FURTHER COMPARES IF SwO8 IS LOW 
523 ;* 6 ECC TEST=COMPARE END RESULTS ONLY IF SWOB IS LOW 


aon 
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oe .SBTTL BASIC DEFINITIONS 
526 INITIAL ADDRESS OF THE STACK POINTER *#* 1000 eee 
527 001000 STACK= 1000 
528 .EQUIV EMT, ERROR ::BASIC DEFINITION OF ERROR CALL 
328 .EQUIV 10T,SCOPE >:BASIC DEFINITION OF SCOPE CALL 
531 :*MISCELLANEOUS DEFINITIONS 
$32 000011 HT= 11 >: CODE FOR HORIZONTAL TAB 
533 000012 LF= 12 >:CODE FOR LINE FEED 
534 000015 CR= 15 =: CODE FOR CARRIAGE RETURN 
535 000200 CRLF= 200 >: CODE FOR CARRIAGE RETURN-LINE FEED 
536 177776 PS= 177776 >: PROCESSOR STATUS WORD 
537 .EQUIV PS,PSW 
538 177774 STKLMT= 177774 rrSTACK LIMIT REGISTER 
$39 177772 PIRQ= 177772 =:PROGRAM INTERRUPT REQUEST REGISTER 
540 177570 DSwWR= 177570 > HARDWARE SWITCH REGISTER 
oe 177570 DDISP= 177570 > HARDWARE DISPLAY REGISTER 
543 :*GENERAL PURPOSE REGISTER DEFINITIONS 
544 090000 RO= x0 >:GENERAL REGISTER 
545 000001 R1= %1 ::GENERAL REGISTER 
546 000002 R2= %2 ::GENERAL REGISTER 
©47 000003 R3= 23 ::GENERAL REGISTER 
548 000004 RG= %4 > GENERAL REGISTER 
549 000005 R5= “5 >: GENERAL REGISTER 
550 000006 R6= %6 ::GENERAL REGISTER 
551 000007 R7= %7 >:GENERAL REGISTER 
552 000006 SP= %6 >:STACK POINTER 
335 000007 PC= %7 =:PROGRAM COUNTER 
4 
555 :*PRIORITY LEVEL DEFINITIONS 
556 000000 PRO= 0 ::PRIORITY LEVEL 0 
557 000040 PRi= 40 =:PRIORITY LEVEL 1 
558 000100 Pk2= 100 ::PRIORITY LEVEL 2 
559 000140 PR3= 140 > PRIORITY LEVEL 3 
560 000200 PR4&= 200 >:PRIORITY LEVEL 4 
501 000240 PR5= 240 >:PRIORITY LEVEL 5 
$62 000300 PR6= 300 > :PRIORITY LEVEL 6 
565 000340 PR?- 340 >:PRIORITY LEVEL 7 
64 
565 se"SWITCH REGISTER’ SWITCH DEFINITIONS 
See 100000 Sw15= 100000 
567 040000 Swi4= 49000 
568 026000 SW13= 0000 
569 010000 Swi2= 10000 
570 0040060 Swil= 4000 
571 002000 Sw10= 2000 
572 001000 sw09= 1000 
573 000400 swOB= 400 
574 000200 SwO7= 200 
575 000100 Sw06= 100 
576 000040 SwOS= 40 
577 000020 Sw04= 20 
578 000010 SwO3= 10 
579 000004 SWO2= 4 


on 


a 1 
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CZRJGD. Pil 10-SEP-79 11:00 BASIC DEFINITIONS SEQ 0012 
580 000002 SwOl= 2 
581 000001 swo0= 1 
582 EQUIV Sw09,SW9 
583 EQUIV SwO08,SwW8 
584 -EQUIV SWO7,SW7 
585 -EQUIV SW06,SW6 
586 EQUIV Sw0S,SwW5 
587 EQUIV SW04,SW4 
588 EQUIV SwO3,Sw3 
589 -EQUIV SwO02,SW2 
590 -EQUIV SwO1,SW1 
+4 “EQUIV SWOO,SWO 
593 s*DATA BIT DEFINITIONS (B1100 TO B1115) ~ 
594 100000 B11T15= 100000 
595 040000 B1T14= 40000 
596 020000 B1T13= 20000 
597 010000 BIT12= 10000 
598 004000 BIlT11= 4000 
599 002000 B1T10= 2000 
600 001000 B1T09= 1000 
601 000400 BITO08= 400 
602 000200 B1T07= 200 
603 000100 B1T06= 100 
604 000040 B1T0S= 40 
605 000020 B1104=- 20 
606 000010 B1T03= 10 
607 000004 B1i02= 4 
608 000002 B1T01= 2 
609 000001 B1T00= 1 
610 -EQUIV B1T09,B1T9 
611 -EQUIV B1T08,B1T8 
612 -EQUIV B1IT07,B1T7 
613 -EQUIV 81106,B1T6 
614 -EQUIV B1T05,B1T5 
615 -EQUIV BIT04,BI1T4 
616 -EQUIV B1T03,B1T3 
617 -EQUIV B1T02,B1T2 
618 -EQUIV B1T01,B1T1 
oh -EQUIV 8B1T00,B1T0 
6 
621 s *BASIC A tl TRAP VECTOR hang 
622 000004 ERRVEC= TIME OUT AND OTHER ERRORS 
623 000010 RESVEC= To : [RESERVED AND ILLEGAL INSTRUCTIONS 
624 000014 TBITVEC=14 so" Bil 
625 000014 TRIVEC= 14 >; TRACE TRAP 
626 000014 BPTVEC= 14 > ;BREAKPOINT TRAP (BPT) 
627 000020 1OTVEC= 20 >; INPUT/OUTPUT TRAP (IOT) **SCOPE*®* 
628 000024 PWRVEC= 24 > POWER FAIL 
629 000030 EMTVEC= 30 s EMULATOR TRAP (EMT) **ERROR*® 
630 000034 TRAPVEC=34 :7''TRAP'' TRAP 
631 000060 TKVEC= 60 :; TTY KEYBOARD VECTOR 
632 000064 TPVEC= 64 >:TTY PRINTER VECTOR 
633 000240 PIRQVEC=240 > :PROGRAM INTERRUPT REQUEST VECTOR 


Nn 1 
CZRIGDO,RPO4/S/6 DSKLS CTRLR1 = MACY11 30A(1052) 10-SEP-79 11:11 PAGE 14 


CZRIGD.P11 10-SEP-79 11:00 TRAP CATCHER . SEQ 0013 
635 .SBTTL TRAP CATCHER | 
636 
637 000000 -=0 
638 S*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.42,HALT™ 
639 S*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
640 i #LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
641 000174 =174 
642 000174 000000 DISPREG: .WwORD 0 ::SOFTWARE DISPLAY REGISTER 
643 000176 000000 SWREG:  .WORD 0 :;SOFTWARE SWITCH REGISTER 
645 .SBTTL ACT11 HOOKS 
646 
647 ;eereeererereerererererererertererenereereneeeereneereteeeerenaee 
648 “HOOKS REQUIRED BY ACT11 
649 000200 SSVPC=. SAVE PC 
650 000046 .=46 
651 000046 041520 SENDAD 5: 1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
6 a 
653 000052 020000 “WORD 20000 ::2)SET LOC.52 TO 20000 
654 000200 .=$SVPC :: RESTORE PC 
° 
056 .SBTTL STARTING ADDRESS 
6 
658 000200 .=200 
659 000200 000137 004244 RA JMP a#BEGIN ;NORMAL START 
660 000204 000137 046356 ADDMOD: JMP a#BASECH :MODIFY ADDRESSES 
661 000210 000137 004234 - JMP a#BEGIN2 >SELECT DRIVE START 
6 
663 
664 ;**STARTING ADDRESS 200 FOR NORMAL STARTS 
665 :eeTHIS WILL TEST ALL DRIVES ON THE SYSTEM A SINGLE DRIVE AT A i IME 
666 : 
667 :**STARTING ADDRESS 204 FOR PARAMETER MODIFICATION, 

668 :e*#RESTART AUTOMATICALLY FROM 200 AFTER PARAMETER MODIFICATION. 
66 


670 :**STARTING ADDRESS 210 WILL TEST ONLY ONE SPECIFIED DRIVE 
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MEMORY MANAGEMENT DEFINITIONS 
-SBTTL MEMORY MANAGEMENT DEFINITIONS 
;*KT11 VECTOR ADDRESS 


MMVEC= 250 
s*KT11 STATUS REGISTER ADDRESSES 
SRO= 177572 
SR1= 177574 
SR2= 177576 
SR3= 172516 
s*KERNEL ‘l"’ PAGE DESCRIPTOR REGISTERS 
KIPDRO= 172300 
KIPDR1= 172302 
KIPDR2= 172304 
KIPDR3= 172306 
KIPDR4= 172310 
KIPDRS= 172312 
KIPDR6= 172314 
KIPDR7= 172316 
*KERNEL ‘“‘I"* PAGE ADDRESS REGISTERS 
KIPARO= 172340 
KIPARI= 172342 
KIPAR2= 172344 
KIPAR3= 172346 
KIPAR4= 172350 
KIPARS= 172352 
KIPAR6= 172354 
KIPAR7= 172356 


**M@Reeeeeerteteteetetetereteeteterereereereeeeetteeeeeeeeeetetetetese 
on 


-=1110 a 








SFQ 0014 
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001100 
000000 
000 


001100 


000 
000000 
000000 


747 001100 
749 001162 


000377 
764 001222 077 
765 001223 015 


MACY11 30A(1052) 
COMMON T 


-SBTTL 


10-SEP-79 
AGS 


¢ 
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SEQ 0015 


COMMON TAGS 


sy eeeeerererereerererererrereererrereererererererrereneereneeerete 


>*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
>*USED IN THE PROGRAM, 


-=1100 


SCMTAG: 
SPASS: 
STSTNM: 
SERFLG: 
SICNT: 
SLPADR: 
SLPERR: 
SERTTL: 
SITEMB: 
SERMAX: 
SERRPC: 
SGDADR: 
SBDADR: 
SGDDAT: 
SBDDAT: . 


SAUTOB: . 
SINTAG: . 


SWR: 

DISPLAY: 
STKS: 1 
STKB: 1 
$TPS: 1 
$TPB: 1 
$SNULL: 

SFILLS: . 
SFILUCs .. 
STPFLG: . 
SREGAD: . 


$REGO: 
$SREG1: 
S$REG2: 
$REG3S: 
$REGS: 
$REGS: 
STMPO: 
STMP1: 
STMP2: 
STMP3: 
STMP4: 
$TMPS: . 
STIMES: 0 
SESCAPE:0 
$BELL: 
$QUES: 
SCRLF: 


- WORD 
-BYTE 
-BYTE 
- WORD 
» WORD 
«WORD 
«WORD 
-BYTE 
~ WORD 
«WORD 
- WORD 
- WORD 


-ASCIZ 
-ASCI1 
-ASCII 


3; START OF COMMON TAGS 

>; CONTAINS PASS COUNT 

>: CONTAINS THE TEST NUMBER 

;; CONTAINS ERROR FLAG 

>: CONTAINS SUBTEST ITERATION COUNT 
>: CONTAINS SCOPE LOOP ADDRESS 

>; CONTAINS SCOPE RETURN FOR ERRORS 
;; CONTAINS TOTAL ERRORS DETECTED 
>; CONTAINS ITEM CONTROL BYTE 

>; CONTAINS MAX. ERRORS PER TEST 

>; CONTAINS PC OF LAST ERROR INSTRUCTION 
>; CONTAINS ADDRESS OF ‘GOOD’ DATA 
;; CONTAINS ADDRESS OF ‘BAD’ DATA 
>; CONTAINS ‘GOOD' DATA 

7;CONTAINS ‘BAD’ DATA 

> ;RESERVED--NOT TO BE USED 


;;AUTOMATIC MODE INDICATOR 
>; INTERRUPT MODE INDICATOR 


> :ADDRESS OF SWITCH REGISTER 
> ADDRESS OF DISPLAY REGISTER 
3; 1TY KBD STATUS 
:; TTY KBD BUFFER 
>: TTY PRINTER STATUS REG. ADDRESS 
>; TTY PRINTER BUFFER REG. ADDRESS 
>; CONTAINS NULL CHARACTER FOR FILLS 
>; CONTAINS # OF FILLER CHARACTERS REQUIRED 
s: INSERT FILL CHARS. AFTER A “LINE FEED" 
: {"TERMINAL AVAILABLE’ FLAG (B11<07>=0=YES) 
: ; CONTAINS THE ADDRESS FROM 
s;WHICH (S$REGO) WAS OBTAINED 
:: CONTAINS (($REGAD) +0) 
>: CONTAINS ((S$REGAD) +2) 
>; CONTAINS ((S$REGAD) +4) 
>; CONTAINS ((S$REGAD) +6) 
: CONTAINS (($REGAD) +10) 
>: CONTAINS (($REGAD) +12) 
: USER DEFINED 
; USER DEFINED 
> USER DEFINED 
3 USER DEFINED 
7; USER DEFINED 
; ;USER DEFINED 
7 MAK, NUMBER OF J TERATIONS 

sESCAPE ON ERROR ADDRESS 
Sey ear near 3 CODE FOR BELL 

QUESTION MARK 
ALS +: CARRIAGE RETURN 


COOoOOCOOCCoCOOCOOCOCOO-COoOCOoOOoOCOoOOo 


09 
Nm on 
—<£ 
nw 
v 


COOVDCODVDOCOOCOCOCOO CO-NOoO 


C 
C 
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766 001224 000012 
767 


D 2 
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COMMON TAGS 


SLF: eASCIZ <12> ;;LINE FEED 


sp eeeetererererrererererererererereerereeereeeeeeeeeeeereneneeeTe 


SEQ 0016 


On 
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CZRIGD.P11 10-SEP-79 11:00 ERROR POINTER TABLE SEQ 0017 
Wy .SBITL ERROR POINTER TABLE 
770 :*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
771 :*THE INFORMATION 1S OBTAINED BY USING THE INDEX NUMBER FOUND IN 
772 S*®LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
773 :*NOTE1: IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC). 
he :*NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLI OWS: 
776 se EM Z;POINTS TO THE ERROR MESSAGE 
777 ;* DH >:POINTS TO THE DATA HEADER 
778 :* DT >:POINTS TO THE DATA 
779 ;* DF ::POINTS TO THE DATA FORMAT 
780 
781 
782 001226 SERRTB: 
783 
784 
785 
786 se] TEM 
787 001226 057572 EM] :WRONG DATA IN READING OR WRITING HARDWARE REGISTER 
788 001230 063045 DH1 PC 
789 :REG. ADDR. 
790 :GOOD DATA 
791 sRECEIVED DATA 
792 001232 067424 DT1 = SERRPC,REGADR, $GDDAT , $BDDAT 
793 001234 070142 DF :0,0,0,0,0 
79% 
795 
796 
797 
798 
799 :*]TEM2 
a4 001236 057655 EM2 ERROR ON DATA COMMAND 
802 001240 0966202 DH33 PC 
803 :PC OF JSR 
804 :TEST NO 
805 :WORD NO. 
806 :GOOD DATA 
807 CONTENTS OF RHCS1 
808 CONTENTS OF RHDS1 
809 CONTENTS OF RHER1 
810 001242 070004 D133 sSERRPC.PCUSR,$iSTNM,ERWORD,SGDDAT,CS1,DS1.ER1 
u 001244 070312 DF 33 :0,0,0,1,0,0,.0,0 
813 
B14 pe] TEM3 
815 001246 057655 EM2 ERROR ON DATA COMMAND 
816 
817 061250 065757 DH32 PC 
818 :PC OF JSR 
819 :TEST NO 
820 :wWORD NO. 
821 :G00D DATA 
822 :BAD DATA 
823 “CONTENTS OF RHCS1 





aon 
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001252 
001254 


001256 
00% 260 


001262 
001264 


001266 
001270 
001272 
001274 


001276 
001300 


001302 
001304 


001306 
001310 


10-SEP-79 11:00 


067760 
070301 


057655 
065554 


067736 
070271 


000000 
000000 
067736 
070271 


057704 
065757 


067760 
070301 


057704 
063170 


MACY! gabe ays 
R POINTER TABLE 


St 1TEMG 


st] TEMS 


7 t1TEM6 


st] TEM7 


10-S 


D132 
DF 32 


EM2 
DH31 


P-79 


WW:11 


'_ = 
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CONTENTS OF RHDS1 
CONTENTS OF RHERI 


SSERRPC PCUSR,STSTNM,ERWORD ,SGDDAT ,SBDDAT,CS1,D0S1,ER1 
30,0,0,1,0.0.0,0,0, 


ERROR ON DATA COMMAND 


“Pt 

; TEST NO 

;WORD NO. 

;GOOD DATA 

;BAD DATA 
sCONTENTS OF RHCS1 
;CONTENTS OF RHDS1 
;CONTENTS OF RHERI 


sSERRPC,STSTNM,ERWORD ,SGDDAT ,SBDDAT,CS1,DS1,ER1 
30,0,1,0,0.0.0.0. 


:SERRPCSTSTNM,ERWORD, SGDDAT,$BDDAT,CS1,DS1,ER1 
;0,0,1,0.0.0,0.0, 


ERROR ON WRITE HEADER AND DATA 


PC 

sPC OF JSR 

3; TEST NO 

sWORD NO. 

;GOOD DATA 

;BAD DATA 
sCONTENTS OF RHCS1 
sCONTENTS OF RHDS1 
sCONTENTS OF RHERI 


sSERRPC ,PCUSR,STSTNM,ERWORD ,SGDDAT ,SBDDAT ,CS1,DS1,ER1 


. 
s . . ete . . . e ° 


+ ON WRITE HEADER AND DATA 


> TEST NO 
WORD NO. 
;GOOD DATA 
;BAD DATA 
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001324 


001326 
001330 


001332 
001334 


001336 
001340 


001342 
001344 


001346 
001350 
001352 
001354 


001356 
001360 


001362 
001364 


10-SEP-79 11 


067452 
070155 


000000 


070153 


057743 
063313 


067466 
070160 


057743 
063045 


067424 
070142 


000000 
000000 
067424 
070142 


057776 


063473 


067506 
070167 


:00 
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D13 
DFS 


>*]TEM10 


st 1TEM11 
—EM11 
DH11 


st] TEM12 
—EM11 


se] TEM13 

0 
0 
DT1 
DF 


pe 1TEM4 
EM14 
DH14 


D114 
DFI4 


pe lTEMS 


6 2 | 
11:11 PAGE 20 C, 
SEQ 0019 Ci 


sSERRPC,STSTNM,ERWORD ,SGDDAT ,SBDDAT 


. 
. ° . ’ ’ ’ 


“$ERRPC,S$TSTNM, ERWORD,$GDDAT, SBDDAT 


. 
. ° ’ ° e ’ 


o_o OR DRIVE STATUS 
4" 


; TEST NO 

FAILING REG. ADDR 

CONTENTS OF RHCS1 

CONTENTS OF RHCS2 

CONTENTS OF RHDS1 

CONTENTS OF RHERI 
;SERRPC,STSTNM,SBDADR,CS1,CS2,0S1,ER) 
:0,0,0,0,0,0 


;WRONG DATA FROM SILO 


sPC 

;REG.ADDR 

;GOOD DATA 

sRECEIVED DATA 

sSERRPC ,REGADR,SGDDAT ,SBDDAT 
30,0.0.0 


SERRPC,TSTNM,REGADR ,SGDDAT ,SBDDAT 


. 
. ’ ’ ° . 


pipet FAILED 


FAILING REG. ADDR 

;CONTENTS OF FAILING REG. 

;CONTENTS OF RHCS1 

CONTENTS OF RHCS2 

; CONTENTS OF eet 

;CONTENTS OF RHER 

TSERRPC., SBDADR, $BDDAT, CS1,CS2,081.ER1 
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001366 
001370 


001372 
001374 


001376 
001400 


001402 
001404 


001406 


001410 


001412 


001414 


001416 


001420 


001422 


001424 


001426 
001430 


001432 
001434 


10-SEP-79 11: 


060016 
063673 


067530 
070177 


060067 
063724 


067540 
070202 


060110 


064067 


067556 


070207 


060134 


064252 


067576 


0702%6 


060155 
064435 


067616 
070225 


EMIS 
DH15 
D115 
DFIS 


st] TEM16 
EM16 
DH16 


D116 
DF16 
st] TEM17 
—M17 
DHI7 


>*]TEM20 
EM20 
DH20 


D120 
DF 20 


se 1TEM21 


—EM21 
DH21 


DI21 
DF21 


H 2 
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SPECIFIED REG. NON EXISTANT SO ABORT 
; PROGRAM 


7 PC 
SADDR. OF REG 
SERRPC, TEMP) 


. 
. ’ 


WAIT LCOP FAILED 
iPC 


WAT PC 
BIT WANTED 
sREG. ADR. 
;REG. CONT 
sSERRPC, $TMP3,S$TMP1,S$TMPO, SBDDAT 


Py ’ ’ ° 


_— CHECK FAILING 


sPC 

; TEST NO 

;CONTENTS OF RHBA 

; CONTENTS OF RHDB 

;CONTENTS OF RHWC 

:CONTENTS OF RHCS1 

CONTENTS OF RHCS2 
SSERRPCSTSTNM,$BA,DB,WC,CS1,(S2 
:0,0.0, 0, 0.0.0 


> densa FAILING 


:PC 

3; TST NO 

CONTENTS OF RHERI 

;CONTENTS OF RHER2 

CONTENTS OF RHER3 

CONTENTS OF RHAS 

;CONTENTS OF RHDS1 

;SERRPC,TSTNM ER1,ER2,ER3,AS,DS1 
:0,0,0,0,0.0,0 


S INTERRUPT FAILING 
PC 


s TEST NO 

sCONTENTS OF RHCS1 
sCONTENTS OF RHAS 
;CONTENTS OF RHDS1 
:SERRPC,TSTNM,CS1,AS,DS1 


———— CCC“ 


SEQ 0020 


Soy ated DSKLS CTRLRI 


CZRJG 


001436 


001440 


001442 
001444 


001446 
001450 
001452 
001454 


001456 


001460 


001462 
001464 


001466 


001470 


001472 
001474 


001476 
001500 


10-SEP-79 11:00 


060177 


064555 


067632 
070232 


000000 
000000 
000000 
000000 


060657 


064660 


067640 
070236 


060752 


064660 


067640 
070236 


057743 
065043 


MACY11 "lesen ta 


s*1TEM22 


71 TEM23 


s®1TEM 2 


st1TEM 2 


10- 
R POINTER 


EM22 


DH22 


DI22 
DF22 


oolo°o 


4 
EM24 


DH24 


DT24 
DF 24 


5 
EM25 


DH24 


DT24 


DF 24 
;*1TEM26 
EM11 


DH26 


SEP-79 


TABLE 


11:14 


1 2 
PAGE 22 


;ERROR IN DRIVE PRESENT - 

;LOOKING AT RHAS AND RHCS2-NED(BIT#12) 
DRIVES PRESENT DO NOT AGREE 

;NOTE: ON DUAL PORT SYSTEM 

“DRIVE ON OTHER PORT WILL NOT GIVE NED 
;HENCE THERE WILL BE A MISSMATCH 


;PC 

TEST NO 

;RHAS UNIT (RHER] BITS SET) 
sRHCS2 UNIT ("NED' BIT TEST) 
;SERRPC,TSTNM 


NO LONGER USED DUE TO SPECIAL "NED‘ 
; TEST TABLE TYPE OUT ROUTINE 


;LOOK AHEAD REGISTER AT THE 
sBEGINNING OF A SECTOR IS IN 
s ERROR 

SPC 

sRHDST 

;BAD RHLA 

;GOOD RHLA 

>SECTOR NO 

sSECTOR CLOCK 

“SERRPC, DST, SBDDAT,STMP1,$TMP2, $TMP3 
70,0,0,0,0 


;LOOK AHEAD REGISTER IS 
; 1N ERROR 


PC 

sRHDST 

3BAD RHLA 

:GOOD RHLA 

sSECTOR NO 

;SECTOR CLOCK 

>SERRPC, DST, SBDDAT,STMP1,S$TMP2.STMP3 


:0,0,0,0, 


: CONTROLLER OR DRIVE STATUS 


1 

;PC OF JSR 

sFAILING REGISTER ADDRESS 
sCONTENTS OF RHCS1 
sCONTENTS OF RHCS2 
sCONTENTS OF RHDS1 


SEQ 0021 


Ci 
Ci 


J 2 
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CZRIGD.P11 10-SEP-79 11:00 ERROR POINTER TABLE SEQ 0022 
Mr | ;CONTENTS OF RHERI 
1050 001502 067660 D126 sSERRPC,PCUSR,SBDADR,CS1,CS2,DS1.ER1 
1051 001504 070245 DF 26 :0,0,0,0,0.0, 
1052 
1053 
1054 
1055 st] TEM27 
+44 001506 057572 EM] sERROR IN READING OR WRITING HARDWARE REGISTER 
1058 001510 065246 DH27 3PC 
1059 sPC OF JSR 
1060 ; TEST NUMBER 
1061 sFAILING REGISTER 
1062 ;GOOD DATA 
bong ;RECEIVED DATA 
1065 001512 067702 D127 sSERRPC,PCUSR,TSTNM,REGADR ,SGDDAT .SBDDAT 
1066 001514 070255 DF27 30,0,0,0,0,0 
1067 
1068 
1069 
1070 >*] TEM30 
1071 001516 061012 —EmM30 sCURRENT CYLINDER DOES NOT REFLECT DESIRED CYLINDER REG. 
1072 001520 065411 DH30 PC 
1073 sPC OF JSR 
1074 sREGISTER ADDRESS 
1075 ;GOOD DATA 
YF th ;BAD DATA 
1078 001522 067720 D130 sSERRPC ,PCUSR,REGADR,SGDDAT ,SBDLAT 
1079 001524 070263 DF 30 :0,0,0,0,0 
108t f 
1082 
1083 :*]TEM31 
1084 001526 061133 —M31 sECC GENERATED IS INCORRECT 
$344 sEVERY WORD IN THIS SECTOR IS GIVEN IN “DATA USED" 
1 
1087 001530 066405 DH34 :PC 
1088 s TEST NUMBER 
1089 :GOO0D ECCI 
1090 :GO00D EC2C 
1091 sWRITTEN ECC! 
1092 sWRITTEN ECC2 
im sDATA USED 
1094 
re 001532 070026 D134 sSERRPC,TSTNM,GECC1,GECC2,WECC1 ,WECC2, DISK 
10 
1097 001534 070322 DF 34 70,0,0,0.0,0,0 
1098 
1099 
1100 7*] TEM32 


1101 001536 061256 EM32 7ON READ COMMAND AFTER DATA AND ECC HAVE BEEN READ 
1102 ECC REGISTER OR RHER! IS IN ERROR 
1103 sONLY LOWER 11 BITS OF PATTERN REGISTER 





oo 






(less ene 
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CZRIGD.P11 10-SEP-79 11:00 ERROR POINTER TABLE SEQ 0023 


1104 ;CAN BE READ 

ee sTHIS SHUOLD MATCH LOWER 11 BITS OF ECCI 
1107 001540 066570 Pa3d5 3 PC 

1108 : TEST NUMBER 

1109 36000 ECCI 

1110 3G00D FCC2 

111 ;PATTERN REGISTER 

AY 4 ;RHER1 

aire 001542 070046 D135 ;SERRPC,TSTNM,GECC1,GECC2.EC2,ERI 
Abe 001544 070331 DF 35 30,0,0,0,0,0 

1118 

1119 

1120 > *]TEM33 

1121 001546 061545 EM33 :H1GH COUNT BIT NOT HIGH AFTER 38859 CLOCKS 
1122 001550 066773 DH36 3PC 

1123 sPC OF JSR 

1124 > TEST NUMBER 

1125 ;RHMR 

1126 sPOSITION REG. 

$y 4 sPATTERN REGISTER 

4 34 001552 070070 D136 :SERRPC,PCUSR,TSTNM,MR,ECT,EC2 

11 

$F 001554 070341 DF 36 70,0.0,0,0.0 

1135 st] TEM24 

1134 001556 061617 EM34 :ZERO DETECT BIT NOT HIGH WHEN [HE 
1135 :32 BIT ECC REGISTER HAS ITS 21 BITS 
1136 OF ZEROS 

1137 sERROR PRINTOUT WILL CONTINUE TILL 
1138 :ZERO DETECT BIT 1S HIGH 

1139 001560 066773 DH36 sPC 

1140 ;PC OF JSR 

1141 ; TEST NUMBER 

1142 > RHMR 

1143 ;POSITION REG. 

1144 sPATTERN REGISTER 

1145 

1146 001562 070070 D136 sSERRPC,PCUSR,TSTNM,MR,ECI,EC2 

1147 

1148 001564 070341 DF 36 79,.0.0.0,0.0 

1149 

1150 

1151 | 

1152 se] TEM35 

1153 001566 061712 EM35 :POSITION REGISTER OR 11 BITS OF 
1154 ;PATTERN REGISTER INCORRECT 

1155 sLOWER 11 BITS OF PATTERN REGISTER 
1156 >SHOULD MATCH LOWER 11 BITS OF GOOD ECC) 
1157 ;DATA ENVELOPE AND N-CODE ZEROS ARE IN DECIMAL 
1158 

1159 001570 067132 DH37 7 PC 
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001572 
001574 


001576 
001600 


001602 
001604 


001606 
001610 


001612 
001614 


001616 
091620 


001622 
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070106 
070347 


062211 
066570 


070046 
070331 


062322 
063313 


067466 
070160 


062457 
067350 


070132 
070360 
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MACY11 30A(1052) 10-SEP-79 11:11 PAGE 25 
ERROR POINTER TABLE 


; TEST NUMBER 
;ECC POSITION 
;GOOD POSITION 
;GO0D ECCI 
;G00D ECC2 
ECC PATTERN 
;DATA ENVELOPE 
;N-CODE ZEROS 


SEQ 0024 


D137 ;SERRPC,TSTNM,EC1,POSITI.GECC1,GECC2,EC2,DATENV,ZCODE 


DF 37 :0,0,0,0,0,0,0,0,0 


7 *1TEM36 
EM36 


DH35 3PC 

> TEST NUMBER 

3G00D ECCI 

;G00D ECC2 
;PATTERN REGISTER 
sPOSITION REGISTER 
;RHER1 


D135 sSERRPC,TSTNM,GECC1,GECC2,EC2,EC1,ER1 
DF35 70,0.0,0,0,0,0 

> *1TEM37 
EM37 


3PGE ERROR 
DH11 7PC 
> TEST NO 
sFAILING REG. ADDR 
;CONTENTS OF RHCS1 
sCONTENTS OF RHCS2 
;CONTENTS OF RHDS1 
sCONTENTS OF RHER1 
:SERRPC,STSTNM,SBDADR,CS1,CS2,DS1.ER1 
30,0,0,0,0,0 


;RHWC DID NOT = 0 AFTER A READ OR 
tes HEADER AND DATA 


sTEST NO 

sCONTENTS OF RHWC 
D140 sSERRPC,TSTNM, SBDDAT 
DF4O :0,0,0 : 


*@@eeeerereererererererreeeeee terete eeee ere eeeeeeeeeeeetene 


+ *#RH11/RH70 REGISTERS 


ss eeeececeeereserercerseereeereererereeReTeNeETeRReReaTeNeaReTeee 


;ON A READ COMMAND WITH NON CORRECTABLE 
sERROR INSERTED DCK AND ECH SHOULD BE SET 


C. 


m 2 
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CZRJGD.P11 10-SEP-79 11:00 ERROR POINTER TABLE SEQ 0025 


— 
Nm 
— 
o 


>*WORD COUNT REGISTER (RHWC) 
;*EACH BIT 1S CALLED BY BIT NUMBER 


>*BUS ADDRESS RECISTER (RHBA) 
>*EACH BIT 1S CALLED BY BIT NUMBER 


3*CONTROL AND STATUS REGISTER 2 (RHCS2) 


a ee ee ee ee ee ee ee Se 
POPP PUPPY Ra PEPE MY POPE PY Py No ful fv fern 
ONOYVEWH—ODOONCOYUEFWN—-OOOo~ 


000001 US1= 1 ;UNIT SELECT (BIT #0) 
000002 US2= 2 sUNIT SELECT (BIT #1) 
009004 US4= = ;UNIT SELECT (BIT #2) 
000010 BAI= 10 ;BUS ADDRESS INCREMENT INHIBIT (BiT #3) 
006020 PAT= 20 INVERT PARITY ON MASS BUS TO EVEN (BIT #4) 
000040 CLR= 40 CLEAR (BIT #5) 
000100 IR= 100 ; INPUT READY (BIT #6) 
000200 OR= 200 ;OUTPUT READY (BIT #7) 
000400 MPE= 400 MASS BUS PARITY ERROR (BIT #8) 
001000 MXF= 1000 ;MISSED TRANSFER ERROR (BIT #9) 
1239 002000 PGE= 2000 ;PROGRAM ERROR (BIT #10) 
1240 004000 NEM= 4000 NON EXISTANT MEMORY (BIT #11) 
1241 010000 NED= 10000 NON EXISTANT DRIVE (BIT #12) 
1242 020000 UPE= 20000 ;UNIBUS PARITY ERROR (BIT #13) 
1243 040000 wCE= 40000 WRITE CHECK ERROR (BIT #14) 
4 100000 DLT= 100000 ;DATA LATE (BIT #15) 
1246 7*DATA BUFFER REGISTER (RHDB) 
1247 >*EACH BIT IS CALLED BY BIT NUMBER 
1248 
1249 
1250 
1251 ppeeeeeerereerereeererererrereeeeneereeeeeeeteeeKeeKeeeREeRE EES 
1252 7*RPO4 REGISTERS 
1253 ppeeeeeerreerrrerrererrerererereerereeeteKeeeeeeeteeee Eee EET EES 
1254 
1255 
1256 
5344 ;*CONTROL AND STATUS 1 REGISTER. (#00) 
1259 000001 GO= 1 :GO (BIT #0) 
1260 000100 l= 100 > INTERRUPT ENABLE (BIT #6) 
1261 600200 RDY= 200 ;READY (BIT #7) 
1262 000400 Al6= 400 HIGH ORDER UNIBUS BITS (BIT #8) 
1263 001000 Al7= 1000 7HIGH ORDER UNIBUS BITS (BIT #9) 
1264 002000 PSEL= 2000 ;PORT SELECT (BIT #10) 
1265 004000 DVA= 4000 ;DEVICE AVAILABLE (BIT #11) 
1266 020000 MCPE= 20000 sMASSBUSS PARITY ERROR (BIT #13) 
1267 040000 TRE= 40000 ; TRANSFER ERROR (BIT #14) 
oe 100000 SC= 100000 ;SPECIAL CONDITION (BIT #15) 
6 
1270 s*STATUS REGISTER (RHDS1) (#01) 


aon 
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ERROR POINTER TABLE 


; *ERROR 
ILF= 
ILR= 
RMR= 
PAR= 
FER= 
wCF= 
ECH= 
HCE= 
HCRC= 
AOE= 
1AE= 
WLE= 
DTE= 
OP I= 
UNS= 
DCK= 


100000 


N 2 
PAGE 27 


sDRIVE FORWARD 5°'/SEC. (BIT #0) 
[DRIVE FORWARD 20°/SEC. (BIT #1) 
:DRIVE TO INNER GAVRD BAND (BIT #2) 
7G0 REVERSE (BIT #3) 

[DIFFERENCE LESS THAN 64 (BIT #4) 
:DIFFERENCE EQUALS 1 (BIT #5) 
;VOLUME VALID (BIT #6) 

:DRIVE READY (BIT #7) 

;DRIVE PRESENT (BIT #8) 


;PROGRAMABLE (BIT #9) 
;LAST SECTOR TRANSFERRED (BIT #10) 


WRITE LOCK (BIT #11) 

;MEDIUM ON-LINE (BIT #12) 

POSITIONING OPERATION rd PROGRESS (BIT #13) 
;COMPOSIT ERROR, (BIT #14 

ATTENTION ACTIVE (BIT 415) 


REGISTER #01 (RHER1) (#02) 


100000 


ILLEGAL FUNCTION (BIT #0) 
ILLEGAL REGISTER (BIT #1) 
REGISTER MODIFICATION REFUSED (BIT #2) 
;PARITY ERROR (BIT #3) 

FORMAT ERROR (BIT #4) 

sWRITE CLOCK FAIL (BIT #5) 

;ECC HARD ERROR (BIT #6) 

;HEADER COMPARE ERROR (BIT #7) 
HEADER CRC ERROR (BIT #8) 
sADDRESS OVERFLOW ERROR (BIT #9) 
; INVALID ADDRESS ERROR (BIT #10) 
WRITE LOCK ERROR (BIT #11) 
:DRIVE TIMING ERROR (BIT #12) 
OPERATION INCOMPLETE (BIT #13) 
DRIVE UNSAFE (BIT‘#14) 

;DATA CHECK ERROR (BIT 15) 


p*MAINTAINABILITY REGISTER (RHMR) (#03) 


s:DIAGINOSTIC MODE (B17 #0) 


>MAINTAINABILITY CLOCK (BIT #1) 
“MAINTAINABILITY INDEX (BIT #2) 
sMAINTAINABILITY SECTOR CLOCK (BIT #3) 
SMAINTAINABILITY READ (BIT #4) 
:MAINTAINABILITY WRITE (BIT #5) 

;DATA ENVELOPE (BIT #7) 

;ZERO DETECT (BIT #8) 

:MAINTAINABILITY SYNC DETECTED (BIT #9) 


ptATTENTION SUMMARY PSEUDO-REGISTER (RHAS) (#04) 


AT0= 
ATl= 
AT2= 
AT3= 
Al4= 
ATS= 
ATo= 


1 
2 
4 
10 
20 
40 
100 


DEVICE 0 (BIT #0) 


DEVICE 1 (BIT #1) 
DEVICE 2 (BIT #2) 
DEVICE 3 (BIT #3) 
:DEVICE 4 (BIT #4) 
DEVICE 5 (BIT #5) 
DEVICE 6 (BIT #6) 


SEQ 0026 


on 








B 3 
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CIRIGD.P11 10-SEP-79 11:00 ERROR POINTER TABLE SEQ 0027 
ese 000200 AT7= 200 :DEVICE 7 (BIT #7) 
1330 
1331 
1332 
1333 
1334 s*DESIRED SECTOR/TRACK ADDRESS REGISTER (RHDST) (#1) 
1335 >*EACH BIT IS CALLED BY BIT NUMBER 
1336 
1337 
1338 
1339 
1340 
1341 s*DRIVE TYPE REGISTER (RHDT) (#06) 
ft >*EACH BIT IS CALLED BY BIT NUMBER 
1344 
1345 
1346 
1347 
tne 4 *LOOK-AHEAD REGISTER (RHLA) (#07) 
1350 000001 EXTl= 1 EXTENSION 1 (BIT #0) 
1351 000002 Ext2= 2 EXTENSION 2 (BIT #1) 
1352 000004 EXT4= & EXTENSION 3 (BIT #2) 
1353 000010 ExT10= 10 EXTENSION 4 (BIT #3) 
1354 000020 ExT20= 20 EXTENSION 5 (BIT #4) 
1355 000040 EXT40= 40 EXTENSION 6 (BIT #5) 
1356 000100 SC l= 100 :SECTOR COUNT FIELD 0 (BIT #6) 
1357 000200 SC2= 200 :SECTOR COUNT FIELD 1 (BIT #7) 
1358 000400 $C4= 400 :SECTOR COUNT FIELD 2 (BIT #8) 
1359 001000 §C€10= 1000 SECTOR COUNT FIELD 3 (BIT #9) 
1360 002000 §C20= 2000 SECTOR COUNT FIELD 4 (BIT #10) 
1361 004000 TRK1= 4000 TRACK FIELD 1 (BIT #11) 
1362 010000 TRK2= 10000 TRACK FIELD 2 (BIT #12) 
1363 020000 TRK4= 20000 TRACK FIELD 3 (BIT #13) 
1364 040000 TRK10= 40000 TRACK FIELD 4 (BIT #14) 
1365 100000 TRK20= 100000 TRACK FIELD 5 (BIT #15) 
toed >*RPO4 ERROR REGISTER #2 (RHER2) (#10) 

6 

1369 000001 wCU= 1 WRITE CURRENT UNSAFE (BIT #0) 
1370 000002 CSF= 2 >CURRENT SINK FAILURE (BIT #1) 
1371 000004 wSU= 4 sWRITE SELECT UNSAFE (BIT #2) 
1372 000010 (SuU= 10 CURRENT SWITCH UNSAFE (BIT #3) 
1373 000020 MSE= 20 MOTOR SEQUENCE ERROR (BIT #4) 
1374 000040 TDF = 40 [TRANSITIONS DETECTOR FAILURE (BIT #5) 
1375 000100 TUF = 100 TRANSITIONS UNSAFE (BIT #6) 
1376 000200 FENS 200 sFAILSAFE ENABLED (BIT #7) 
1377 000400 WRU= 400 sWRITE READY UNSAFE (BIT #8) 
1378 001000 MHS= 1000 MULTIPLE HEAD SELECT (BIT #9) 
1379 002000 NHS= 2000 :NO HEAD SELECTION (BIT #10) 
1380 004000 IXE= 4000 : INDEX ERROR (BIT #11) 
1381 010000 vu30= 10000 > 30VOLT UNSAFE (BIT #12) 
1382 020000 PLU= 20000 :PLO UNSAFE (BIT #13) 
1383 100000 ACU= 100000 >ACUNSAFE (BIT #15) 


on 
™~ ew 
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020000 


000001 
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000200 
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>*RPOS/6 ERROR REGISTER #2 (RHER2) (#10) 


wCU= 1 WRITE CURENT UNSAFE 

CSF= 2 ;CURRENT SINK FAILURE 

wSU= 4 ;CURENT SELECT UNSAFE 

CSU= 10 :CURRENT SWITCH UNSAFE 

RAW= 20 ;READ AND WRITE 

TDF = 40 ; TRANSITIONS DETECTOR FAILURE 

TUF = 100 ; TRANSITIONS UNSAFE 

ABS= 200 ; ABNORMAL STOP 

WRU= 400 WRITE READY UNSAFE 

MHS= 1000 ;MULTIPLE HEAD SELECT 

NHS= 2000 ;NO HEAD SELECTION 

1XE= 4000 ; INDEX ERROR 

PLU= 20000 PLO UNSAFE 

stOFFSET REGISTER (RHOF) (#11) 

OF25= 1 

OFSO0= 2 

OF100= 4 

OF200= 10 

OF400= 20 sOFFSET 400 MICRO INCHES (BIT #4) 
OF800= 40 

CFREV= 200 OFFSET NEGATIVE 

HCI]= 2000 HEADER COMPARE INHIBIT (BIT #10) 
ECI= 4000 ERROR CORRECTION CODE INHIBIT (BIT #11) 
FMT22= 10000 FORMAT BIT (BIT #12 


>*DESIRED CYLINDER ADDRESS (RHCA) (#12) 
;*EACH BIT 1S CALLED BY BIT NUMBER. 


>*®CURRENT CYLINDER ADDRESS (RHCC) (#13) 
:tEACH BIT 1S CALLED BY BIT NUMBER 


;*SERIAL NUMBER REGISTER (RHSN) (#14) 
;*EACH 1S CALLED BY BIT NUMBER 


sOFFSET 25 MICRO INCHES (BIT #0) 
OFFSET 50 MICRO INCHES (BIT #1) 
OFFSET 100 MICRO INCHES (BIT #2) 
:OFFSET 200 MICRO INCHES (BIT #3) 


;OFFSET 800 MICRO INCHES (BIT #5) 
(REVERSE) (BIT #7) 


SEQ 0028 


on 
rm Mm 


1440 
1441 TERROR REGISTER #03 (RHERS) (#15) 


1442 


dD 3 
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1443 000001 PSU- 1 sPACK SPEED UNSAFE (BIT #0) 

1444 000002 VUF = 2 sVELOCITY UNSAFE (BIT #1) 

1445 000010 UWR= 10 sANY UNSAFE EXCEPT READ/WRITE (BIT #3) 

1446 000020 PRE= 20 sDISK PACK ROTATION ERROR (BIT #4) 

1447 000040 ACL= 40 sAC LOW (BIT #5) 

1448 000100 DCL= 100 70C LOW (BIT #6) 

1449 040000 SKl= 40000 ;SEEK INCOMPLETE (BiT #14) 

sees 100000 OCcYL= 100000 sOFF CYLINDER (BIT #15) 

14 

1452 

1453 

1454 

1455 

1456 

1457 s®ECC POSITION REGISTER (RHECI) (#16) 

1458 s*EACH BIT 1S CALLED BY BIT NUMBER 

1459 

1460 

1461 

1462 

1463 

1464 s*ECC PATTERN REGISTER (RHEC2) (#17) 

1465 s*EACH BIT IS CALLED BY BIT NUMBER 


| 
| 
| 
| 
| 
| 
| 
| 


ze. 
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1467 : 
1468 .SBTTL REGISTER ADDRESSES 

1469 

1470 

1471 

1472 

1473 :*RPOG VECTOR ADDRESS 

1475 001626 000254 RPVEC: 254 :RPO4 VECTOR ADDRESS 

1477 

1478 

1479 

1480 :*RP04/5/6 DISK 1/0 REGISTERS LOCATED IN THE RH11 CONTROLLER 

1481 :*NOTE: THE CONTENTS OF THESE LOCATIONS WILL BE DIFFRENT 

1482 ie IF THE "CHANGE BASE ADDRESS" ROUTINE IS USED. 

1483 :* THIS ROUTINE STARTS AT LOCATION TAGED “‘BASECH" 

484 

1485 001630 176722 RHDB: 176722 ;DATA BUFFER SEE NOTE ABOVE 

1486 001632 176702 RHWC: 176702 :wWORD COUNT SEE NOTE ABOVE 

1487 001634 176704 RHBA: 176704 :BUS ADDRESS SEE NOTE ABOVE 

1488 001636 176710 RHCS2: 176710 :CONTROL AND STATUS 2 SEE NOTE ABOVE 

4 

1490 

1491 
1492 :*RP04G/5/6 DISK 1/0 REGISTERS LOCATED IN THE DEVICE CONTROL LOGIC (DCL) 
1493 “#NOTE: THE CONTENTS OF THESE LOCATIONS WILL BE DIFFERENT 

1494 ;* IF THE "CHANGE BASE ADDRESS ROUTINE IS USED. 

1495 ie THIS ROUTINE STARTS AT LOCATION TAGED ‘'BASECH™ 

496 

1497 001640 176700 RHCS1: 176700 ;CONTROL AND STATUS 1 SEE NOTE ABOVE 
1498 001642 176714 RHER1: 176714 TERROR #1 SEE NOTE ABOVE 

1499 001644 176706 RHDST: 176706 “DESIRED SECTOR/TRACK ADDRESS SEE NOTE ABOVE 
1500 001646 176740 RHER2: 176740 TERROR #2 SEE NOTE ABOVE 

1501 001650 176732 RHOF: 176732 [OFFSET SEE NOTE ABOVE 

1502 001652 176734 RHCA: 176734 [DESIRED CYLINDER ADDRESS SEE NOTE ABOVE 
1503 001654 176742 RHER3: 176742 TERROR #3 SEE NOTE ABOVE 

1504 001656 176716 RHAS: 176716 “ATTENTION SUMMARY SEE NOTE ABOVE 

1505 001660 176724 RHMR: 176724 :MAINTAINABILITY SEE NOTE ABOVE 

1506 001662 176712 RHDS1: 176712 :DRIVE STATUS SEE NOTE ABOVE 

1507 001664 176726 RHDT: 176726 :DRIVE TYPE SEE NOTE ABOVE 

1508 001666 176730 RHSN: 176730 “SERIAL NUMBER SEE NOTE ABOVE 

1509 001670 176744 RHEC1: 176744 ZECC POSITION SEE NOTE ABOVE 

1510 001672 176746 RHEC2: 176746 :ECC PATTERN SEE NOTE ABOVE 

1511 001674 176720 RHLA: 176720 :LOOK-AHEAD SEE NOTE ABOVE 

1512 0091676 176736 RHCC: 176736 :CURRENT CYLINDER ADDRESS SEE NOTE ABOVE 
1 

1514 S*ADDITIONAL REGISTERS LOCATED IN THE RH70 CONTROLLER LOGIC 

151 

1516 901700 176750 RHBAE: 176750 :BUS ADDRESS EXTENSION REGISTER 

1517. 001702 176752 RHCS3: 176752 “CONTROL AND STATUS REGISTER #8 


an 
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;*THE FOLLOWING LOCATIONS ARE RESERVED FOR REGISTER SAVES 
S AN ERROR ALL THESE WILL BE FILLED 
;*ONLY SOME MAY BE PRINTED BUT ALL WILL BE FILLED TRUE 
*FOR THE TIME JUST AFTER THE ‘ERROR’ ERROR COMMAND 


;tANY TIME THERE 


oo°ooe 


DDRESS 
:CONTROL AND STATUS 2 


CONTROL AND STATUS 1 

sERROR #1 

;DESIRED SECTOR/TRACK ADDRESS 
;ERROR #2 


SE 
DESIRED CYLINDER ADDRESS 
RROR #3 


ATTENTION SUMMARY 
;MAINTAINABILITY 
DRIVE STATUS 


7; SERIAL NUMBER 
;ECC POSITION 


OOOO OCOCCOCOOCOCOOCOCOOoO 


; CURRENT CYLINDER ADDRESS 
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001774 
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002000 


002002 
002004 


002006 
002010 


002012 


002014 


002016 
002020 


002022 
002024 


002026 


002030 


002032 
002034 
002036 
092040 
002042 





CZRJGDO, ede DSKLS gin 
10-SEP-79 11:00 


000010 
000000 
000000 
000000 


000000 
000000 


000000 
000000 


000000 


000000 


000000 
000000 


000000 
000000 


000000 


000000 
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SEQ 0032 


;*FLAGS & INTERNAL PROGRAM CONTROL WORDS 


UNITS: .BLKW  ®@. 


UNIT: - WORD 
NOUNIT: .WORD 


NUNIT: .WORD 


SELECT: .WORD 
UNITSL: .WORD 


ERFLG$: 0 
SAVDT: 0O 


oo oc oo 


SAVSN: 0 


PCUSR: 0 


ATTENT: 0 
TOTALAT: 0 


TMPILL: 0 
TSECC: 0 


TESDTE: 0 


TAGDTE: 0 


TSTNM: 0 
FIRST: 0 
RP06: 0 
RH70: 0 
SILOSZ: .wORD 0 


; TABLE OF ght PRESENT TO TEST 
[UNIT UNDER TEST 
;NUMBER OF UNITS PRESENT 


[USED TO KEEP TRACK OF UNIT UNDER TEST 


;USED TO DETERMINE IF THERE IS MORE 
; THAN ONE UNIT 


;ALL_ ONES INDICATE UNIT TO BE SELECTED 


;UNIT NO. SELECTED 


;ERROR FLAG 


;SAVE DRIVE TYPE REGISTER 
;FOR COMPARISON IN DRIVE CLEAR TEST 


;AND RH INIT TEST 


SAVE SERIAL NUMBER REGISTER 

;FOR COMPARISON IN DRIVE CLEAR TEST 
;AND RH INIT TEST 

SAVE PC OF JSR WHICH GAVE THE ERROR 


ATTENTION BIT FOR PRESENT UNIT 
;TATAL ATTENTION BITS 


; TEMPORARY ILLEGAL FUNCTION 
;FLAG TO SAY IF ECC TEST OR NOT 
sWHEN =177777 IT IS AN ECC TES! 
sWHEN =OI1T IS NOT AN ECC TEST 


;FLAG TO SAY_IF DRIVE TIMING ERROR OR NOT 


sWHEN = 
sWHEN = 0 


177777 11 1S A OTE TEST 
17 IS NOT A DTE TEST 


; TEMPORARY TAG USED IN DRIVE TIMING 
ERROR TEST 


7 TEST NUMBER 
s1F ZERO WILL TYPE HEADER 
71F O PROGRAM WILL TREAT DRIVE AS RPOS 


IF 1 
:1f O PROGRAM IS ON AN RH11 
RH S 


PROGRAM 1S RUNNING ON RH70 
1L0 SIZE 


(as SSS 


C2 


CZRJGDO, Nett § DSKLS ON 00 


CZRIGD.P 10-SEP-79 11 


002106 


002114 
003160 


004224 
004227 
004222 


000000 
000002 


000000 


000422 
000422 


FUTABL: 
NOPERA: 
UNLOAD: 
RECALI: 
DCLEAR: 


READIN: 
ILLEGL: 


WRFROM: 
REINTO: 


MACY11 yotheie ts 
GISTER ADDRESSES SEQ 0033 


H 3 ea Cog ae 
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> *FUNCTION EQUATES 
>*TABLE OF FUNCTIONS FOR RHCS1, THEN ‘'GO'’ BIT HAS TC BE SET 


0 3NO OPERATION 
2 sUNLOAD (STAND BY) 
6 SS ge ae 
10 sDORIVE CLEA 
12 > RELEASE (DUAL =PORT OPERATION) 
30 ;SEARCH COMMAND 
50 WRITE CHECK DATA 
52 sWRITE CHECK HEADER AND DATA 
: 60 sWRITE DATA 
: 62 sWRITE HEADER AND DATA (FORMAT) 
: 70 ;READ DATA 
¢. ¥2 ;READ HEADER AND DATA 
> & ;SEEK COMMAND 
> 14 :OF FSET COMMAND 
16 sRETURNTO CENTERLINE 
22 sPACK ACKNOWLEDGE 
20 :READ IN 
~ WORD sCOMPUTED ILLEGAL FUNCTION 


> *DATA BUFFERS FOR READ WRITE 


~BLKW 274. sWRITE FROM THIS BUFFER 
-BLKW 274. :READ INTO THIS BUFFER 


7 *ATTENTION TABLE 


020 
200 


;*TABLE FOR ATTENTION BITS | 

002 004 ATABLE: 
040 

| 

| 

| 


-BYTE 1,2,4,10,20,40,100,200 


an 
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004234 
004242 
004244 


004250 
004250 


004252 
004256 


004370 
004376 


004404 
004410 
004416 
004424 
004432 
004440 


004442 
004444 
004450 
004452 
004460 
004466 


004472 
004500 


10-SEP-79 11:00 


012737 
000402 
005037 


000005 


012706 


eT ee ee 


001012 
000403 


177777 
002002 


001100 
001140 
001000 
054332 


004376 


000004 


177777 


004452 


000176 
000174 
000004 


000000 
054250 


MACY11 30A(1052) 


2 
10-SEP-79 11:11 PAGE %5 


REGISTER ADDRESSES SEQ 0034 


- SBTTL 
~SBTTL 
~ SBTTL 


~ SBTTL 


002002 BEGIN2: MOV 
BR 


001142 
174500 


001140 
001142 


BEGIN: 


START: 
.SBTTL 


3; CLEAR 


ee A FEW VECTORS 


3:S1ZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
;;EQUAL TO A ‘'=1"', SETUP FOR A SOFTWARE SWITCH REGISTER. 


648: 
65$: 
66$: 


STARTA: 


CLR 


RESET 


INITIALIZE THE COMMON TAGS 
THE COMMON TAGS (SCMTAG) AREA 


MOV 


eeeD] AGNOSTIC CODE*** 


SETUP TESTS 
#-1 ,AMSELECT SELECT UNIT 
START 


@#SELECT ;D0 NOT SELECT UNIT 
;NORMAL RUN 


#SCMTAG,RO 3:FIRST LOCATION TO BE CLEARED 
(R6)+ >;CLEAR MEMORY LOCATION 
WSWR,RO ; DONE? 

“6 ;;LOOP BACK IF NO 

#STACK,SP >;SETUP THE STACK POINTER 


#S$SCOPE ,a#OTVEC EY we VECTOR FOR SCOPE ROUTINE 
#340, a#iOTVEC+2 ; EVEL 

#SERROR ,QMEMTVEC EMT VECTOR FOR ERROR ROUTINE 
#340, ,QMEMTVEC+2 =;LEVEL 7 

#STRAP ,A#TRAPVEC ;; TRAP VECTOR FOR TRAP CALLS 
#340 ,aM#TRAPVEC+2;LEVEL 7 

#SPWRON,AMPWRVEC ;;POWER FAILURE VECTOR 

#340, ,aMPWRVEC+2 ;;LEVEL 7 


STIMES >: INITIALIZE NUMBER OF ITERATIONS 
SESCAPE 7: CLEAR THE ESCAPE ON ERROR ADDRESS 

#1, SERMAX >; ALLOW ONE ERROR PER TEST 

#., SLPADR >: INITIALIZE THE LOOP ADDRESS FOR SCOPE 
#. , SLPERR ;;SETUP THE ERROR LOOP ADDRESS 


Q@#ERRVEC,-(SP) ;;SAVE ERROR VECTOR 
#64$ ,AMERRVEC Ht UP ERROR VECTOR 


#DSWR, SWR ;SETUP FOR A HARDWARE SWICH REGISTER 
#DDISP,DISPLAY — A HARDWARE DISPLAY REGISTER 
#-1,aSWR RY TO REFERENCE HARDWARE SwWR 

66$ BRANCH IF NO TIMEOUT TRAP OCCURRED 


>:AND THE HARDWARE SWR IS NOT = -1 


65$ >;BRANCH IF NO TIMEOUT 
#65$, (SP) 3:SET UP FOR TRAP RETURN 
#SWREG, SWR ;:POINT TO SOFTWARE SwWR 
#DISPREG, DISPLAY 


(SP)*,@MERRVEC ;;RESTORE ERROR VECTOR 


#0,PS SET PROCESSOR STATUS Tu 4 
@RPVECT @RPVEC THIS 1S FOR UNTIMELY URIVE INTERRUPTS 


C2 
C2 


tases fit -RPO04/5/6 DSKLS oir? 


RJGD.P1 


So 


SN NN SN SN NN NS SN NNN SN NS NNN NN I NN NS NS NS SS 
TORO RRR wt a es as os os ss 


WAN IW IF fut 
VPFWN =O OOF VFWN HO DOOACUFWNH-—O”O 


ruAwnw 


ee ee ee eee ee se ee ee 
* ¥“ 
mo OOnN 


SN NNN NS 


004506 
004512 
004516 
004520 


004522 
004526 
004526 
004532 


004624 


004624 
004630 


004670 


004670 
004674 


004764 
004764 
004770 


005050 
005050 
005054 
005136 
005136 
005142 
005176 
005176 
005202 
005264 
005204 
005270 
005332 


005332 


005340 


005370 


0(5370 
005376 


10-SEP-79 1 


004737 
005737 
001001 
000402 


000137 


104401 
000434 


104401 
000417 


104401 
000433 


104401 
000427 


104401 
000430 


104401 
000415 


104401 
000430 


104401 
000420 


012737 


005737 
001006 
023727 
001005 
104406 
000403 
112737 


032777 
001403 


055310 
002034 


005332 
004534 


004632 


004676 


004772 


005056 


005144 


005204 


005272 


177777 


000042 
001140 


000001 


010000 


MACY11 30A(1052) 


002034 


000176 


001134 


173542 


J 53 
10-SEP-79 11:11 PAGE %6 
INITIALIZE THE COMMON TAGS 


JSR 
TST 
BNE 
BR 
1$: JMP 
2$: 
TYPE 
is 
37658: ASCI2Z 
64$: 
TYPE 
BR 
3367$: .ASCIZ 
66$: 
TYPE 
R 
;69$: ASCI2Z 
68$: 
TYPE 
BR 
73718: .ASCI2Z 
708: 
TYPE 
BR 
3;73$: .ASCI2Z 
72%: 
TYPE 
BR 
-:75$: .ASCIZ 
74$: 
TYPE 
BR 
::778: .ASCIZ 
76$: 
TYPE 
BR 
3;79$: .ASCIZ 
788: 
SND 1 MOV 
SBTTL 
TST 
BNE 
CMP 
BNE 
GTSWR 
BR 
64$: MOVB 
65$: 
RH70CK: BIT 
BEQ 


PC ,a#STKINT s INITIALIZE THE TTY KEYBOARD 
a#F RST 71S THIS FIRST TIME ROUND ? 
1$ SKIP HEADER IF NOT 

2$ ;D0 HEADER IF SO 

@4SND1 SKIP OVERALL PROGRAM HEADER 
vty tity ASCIZ STRING 


64% GET OVER THE ASC1Z 
<15><12>?2RP04/5/6 DISKLESS CONTROLLER TEST = PART I = CZRJG-D? 


oly sites ASCIZ STRING 
66% GET OVER THE ASCIZ 
<15><12>/REVISION DATE: 01-MAY-79/<15><12> 


09% ii TYPE ASCIZ STRING 
68$ ;GET OVER THE ASCI2Z 
<15><12>/ALL DCL'S UNDER TEST MUST BE LOCKED ON CORRECT PORT/ 


.71$ ii TYPE ASCIZ STRING 
70$ GET OVER THE ASCIZ 
<15><12>/1F CHANGES ARE REQUIRED ON PORT SWITCH THEN/ 


.73$ ii TYPE ASCIZ STRING 
72% GET OVER THE ASCIZ 
<15><12>/A CYCLE UP SEQUENCE 1S REQUIRED FOR STROBING/ 


ey 23 TYPE ASCIZ STRING 
74% GET OVER THE ASCIZ 
<15><12>/THE PORT SELECT FLOP/<15><12> 


.77$ ii TYPE ASCIZ STRING 
76% GET OVER THE ASCI2Z 
<15><12>/ALL DCL'S NOT UNDER TEST MUST BE SWITCHED OFF/ 


79% Lp apy ASCIZ STRING 
78% ;GET OVER THE ASCI2 
<15><12>/0R LOCKED ON THE OTHER PORT/<15><12> 


#-1 ,a#FIRST NEXT TIME DO NOT GIVE HEADER 


r. i. +e SOF TWARE uae REGISTER 


ARE WE RUNNING UNDER XXDP/ACT? 


64% : BRANCH IF YES 

SWR,#SWREG «SOFTWARE SWITCH REG SELECTED? 
65$ >;BRANCH IF NO 

658 :;GET SOF T=SWR SETTINGS 
#1,$AUTOB 7:SET AUTO-MODE INDICATOR 
#SW12,aSWR sLCOK TO SEE IF USING RH70 

3$ ‘IF Swi? = 0, SKIP NEXT 






iyo pale? DSKLS oh 
CZRIGD. 1:00 





005400 


005406 
005412 
005414 
005420 


005466 
005466 
005470 
005474 
005500 
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012737 


005737 
001434 
104401 
000422 


104412 
042716 
011637 
012637 


000001 
002002 
005422 


177770 
001774 
002004 


MACY11 30A(1052) 


002040 


3 
10-SEP-79 11:11 * pace 37 C2 
GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0036 C2 
MOV #1, a@RH70 s1f Swi2 = 1, CU 1S AN RH70 
3$: TST @#SELECT 3200 START? 
BEQ TS$T1 7SKIP NEXT IF STARTING FROM 200 ------------- ) 
TYPE 058% 33 TYPE ASCIZ STRING 
R 64% ;GE' OVER THE ASCIZ 
+) al ASCIZ <15><12>/SELECT UNIT NUMBER TO BE TESTED ?/ 
643: 
RDOCT 
BIC #177770,(SP) sONLY KEEP LAST 3 BITS 
MOV (SP) ,@#UNIT ;SAVE UNIT TO BE TESTED 
MOV (SP)+,@#UNITSL ;SAVE UNIT TO BE TESTED 


3 
CZRIGDO,RPO4/5/6 DSKLS CTRLR1 = MACY11 30A(1052) 10-SEP-79 11:11 * PAGE 


38 
CZRJGD.P11 10-SEP-79 11:00 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0037 
1763 
1764 
1765 sperteererererererereererererrerrerrrterererereereretenereeeeeereee 
BA :*TEST 1 REFERENCE EACH REGISTER 
1 ;te REFERENCE EACH REGISTER BY A MOVE INSTRUCTION 
1770 : ;eeeerererererererererererrererererereReeeeReKerenereeeeeeeeeeee 
1771 005504 000004 TST1: SCOPE 
1772 005506 012737 000001 001212 MOV #1, STIMES :;D0 1 ITERATION 
1773 005514 012706 001000 MOV WSTACK, SP ;SET UP STACK POINTER 
oe 005520 012737 000001 002032 MOV #TTNO,@#TSTNM =; THIS SAVES TEST NUMBER 
1776 005526 012737 056560 000030 MOV WREGSA1 ,@WEMTVEC; ERROR VECTOR SO THAT 
1777 ;NO REGISTERS ARE SAVED 
1778 005534 012737 005562 000004 MOV #2% ,aMERRVEC ;SET UP FOR BUS TIMEOUT 
1779 005542 012700 000024 MOV #24 ,R0 ; THERE ARE 24 REG TO TEST 
1780 005546 012701 001630 MOV #RHDB,R1 ;R1 NOW HAS ADDR OF ADDR OF FIRST REG. 
1781 005552 013102 1$: MOV a(R1)+,R2 ;READ HARDWARE REG. 
1782 005554 005300 DEC RO ;COUNT DOWN 
1783 005556 001375 BNE 1$ ;BRANCH IF 24 a — 
1784 005560 000454 BR 3$ ;BRANCH IF 24 D 
1785 005562 012737 000006 000004 2%: MOV WERRVEC+2,Q#ERRVEC ; RESTORE TRAP CATCHER 
1786 005570 022626 CMP (SP)+, (SP)¢ ;CLEAN STACK 
1787 005572 016137 177776 091200 MOV -2(R1), STMP1 STORE FAILING REG ADDR 
1788 005600 104015 ERROR 15 ;REGISTER NON EXISTANT 
1789 005402 032777 020000 173330 BIT #SW13,aSWR > INHIBIT ERROR PRINTOUT ? 
te 005610 001036 BNE 4$ ;BRANCH IF YES 
1792 005612 104401 005620 TYPE 058 i; TYPE ASCIZ STRING 
1793 005616 000427 BR 64$ GET OVER THE ASCIZ 
1794 :;65$: .ASCIZ <15><12>/T0 CHANGE BASE ADDRESS, RESTART AT ADDRESS / 
ss 005676 648: 
1797 005676 012746 000204 MOV #ADDMOD,-(SP) ;GET READY TO TYPE STARTING ADDRESS 
1798 ;OF "‘CHANGE OF BASE ADDRESS‘’ ROUTINE 
1799 005702 104402 TYPOC 
000 005704 000000 HALT ;FORCE THE RESTART! 
1608 005706 000137 041432 4$: JMP a#SEOP :GO TO END OF PROGRAM --------------- > 
1 
1804 005712 012737 005772 000004 38: MOV #TRP aes s INITIALIZE VECTOR 
1805 005720 005037 002040 CLR RH70 :INIT RH INDICATOR ++ C.W 
1806 005724 005777 173750 TST @RHBAE ;ADDRESS RPBAE (RH11/RH70?) 
1807 005730 005237 002040 INC RH70 ;FOUND AN RH70-SET MASK 
1808 005734 104401 005742 TYPE sore i; TYPE ASCIZ STRING 
1809 905740 000413 BR ;GET OVER THE ASCIZ 
1810 3:67$: .ASCI2 oF c12>/RH70 CONTROLLER = / 
1811 005770 66$: 
1812 005770 000417 BR RIN 
1813 005772 022626 TRP: CMP (SP)+,(SP)+ ;ADJUST THE STACK 
1814 005774 104401 006002 TYPE 238 is 1YPE ASCIZ STRING 
1815 006000 000413 BR ;GET OVER THE ASCIZ 
1816 33605$: .ASCIZ OTe ct2>/RHTI CONTROLLER / 
1817 006030 648: 
1818 006030 012737 056550 000030 RIN: MOV #SERROR ,QMEMTVEC; RESTORE ERROR VECTOR 


an 


CZRIGDO,RPO4/5/6 DSKLS CTRLRI 
10-SEP-79 11:00 


CZRIGD.P11 


006036 


006146 


012737 


004737 


062737 
004737 


000006 


042732 


000100 
000412 


042732 


MACY11 oo 


000004 


173546 
173542 


037416 
037416 


037424 
037424 
037424 
037424 


13$: 


a 53 
10-SEP-79 11:11 PAGE 39 
REFERENCE EACH REGISTER 


MOV 


;S0 THAT REGISTERS ARE SAVED 
WERRVEC+2 ,Q#ERRVEC ;RESTORE TRAP CATCHER 


sFIND THE SILO SIZE 


PC, aaCLDISK 
SILOSZ 


SIL 

SILOSZ, @RHDB 
S1LOSZ 

WIR, @RHCS2 
138 


#266., VARI42 
SILOSZ, VAR1+#2 
VAR142 
#WRFROM, VAR2#2 ;VAR2 IN TEST 116 
SILOSZ, VAR2+2 
SILOSZ, VAR2+2 
#512., VAR242 
PC. a#CLDISK 


; CONTROLLER CLEAR 
;CLEAR SILO COUNTER 
;LOAD SILO 

;KEEP COUNT 

31S THE SILO FULL? 
;BRANCH IF NO 

;VAR1 IN TEST 116 


: CONTROLLER CLEAR 


SEQ 0038 


n 3 
CZRJGDO,RP04/5/6 DSKLS chet MACY11 SO0A(1052) 10-SEP-79 11:11 PAGE 40 
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1841 py eteeeeerrerrrerrrrererrerererrerererrerereeeeerenereneeeeeeeeee 
1842 S*TEST 2 RHCS2=CONTROL AND STATUS 2 

1B44 see THIS PARTIALLY TESTS RHCS2 TO ENABLE DETERMINATION 

Me a ;ee OF THE NUMBER OF DRIVES PRESENT 

1847 pp etereeerererrerrerererererererereteterareneeeeneeeeresereeetene 
1848 006152 000004 i812: SCOPE 

1849 006154 012737 000001 001212 MOV #1, STIMES ::D0 1 ITERATION 

1850 006162 012706 001000 MOV #STACK, SP “RESET STACK 

1851 006166 012737 000002 002032 MOV #TINO,a#TSTNM ==: THIS SAVES TEST NUMD_R 

1855 ¥ -*CHECK TO SEE If THE PROGRAM iS RUNNING WITH AN RH70 
1855 006174 005737 002040 1$1 awRH70 TEST FLAG FOR RH70 CONTROLLER 
1856 006200 001402 BEQ 30$ “IF FLAG = 1, THIS TEST IS SKIPPED 
1857 006202 000137 006236 JMP 1$13 SJUNP 10 WERT TEST eocceecceccesecenes ) 
1858 006296 308: JF FLAG = 0, DO THIS TEST 

1859 ’ 

1860 | 

1861 006206 013737 011054 006226 mov aePRCS2+12,aMUN 

1862 006214 013737 001636 006230 MOV AMRHCS2,aM#UNG 2 

1863 006222 004537 042404 JSR RS a#BliST :TEST BITS IN REGISTER 

1864 006226 000000 UN: “wORD 0 “ONLY THESE BITS TESTED FOR READ/WRITE 
1865 006230 000000 "wOoRD 0 “ADDRESS OF REG. BEING TESTED 
1866 006232 104001 ERROR 1 TIN CORRECT DATA RECEIVED 

1867 006234 000207 RIS PL [RETURN TO BLT3 ROUTINE 

1869 

1870 |, 

Te 

1872 

1873? 

1874 " ppeeeeererereereceerererereereereeeeereReeKeKeteeeTeeRE TERETE EES 
1875 : SeTEST 3 PARTIAL TEST OF RHAS FOR -UNIT NUMBERS PRESENT 
1876 4 ppeeeeeeeereeeeererererererererererereeeeereeRteeeEeeeeTETe TEES 
1877 006236 000004 1813: SCOPE 

1878 006240 012737 000001 001212 MOV #1, STIMES D0 1 ITERATION 

1880 006246 012737 000003 002032 MoV #TINO,a#TSINM = 7ni3 SAVES TEST NUMBER 

1BB2 006254 013701 001656 MoV a#RHAS RI :R1 HAS ADDRESS OF RHAS 

1883 006260 012711 177777 | MOV #-1,aRi “THIS CLEARS RHAS (SURPRISED!) 
1884 006264 011137 001126 MOV aR1 a#$BDDAT TEST DATA 

1885 006270 105737 001126 1STB a#SBDDAT 

1886 006274 001405 BEO S14 :BRANCH IF GOOD 

1987 006276 005037 001124 CLR aNSGDDAT “GOOD DATA 

1888 006302 010137 042402 MOV R1. a#REGADR “FAILING REG. RHAS 

1889 006306 104001 ERROR 1 “RHAS DOES NOT CLEAR 


1890 ;BY WRITING ONES IN 


on 
~~ 
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006310 
006312 


006344 
006350 


006432 
006432 
006436 
006516 
006516 
006522 
006576 
006576 
006602 
006662 


006662 


006714 
006716 
006722 


006732 


006736 
006744 
006746 


006752 
006752 
006756 
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000004 
012737 


000005 


001147 
104401 
000430 


104401 
000427 


104401 
000425 


104401 
000427 


013701 


001373 
111137 


105037 
105711 
001402 
000137 


032777 
001402 
000137 


104401 
000421 


000001 


000004 
055310 
020000 


006352 


006440 


006524 


006604 


001656 
001636 


000010 


001642 
177777 


002020 
002021 


007304 
020000 
007642 


006760 


MACY) 


001212 


002032 
172576 


172174 


30A(1052) 
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11:11 


B 4 
PAGE <1 


PARTIAL TEST OF RHAS FOR UNIT NUMBERS PRESENT 


--@@eeeerererrrererrrertereerereerreereretererereretereneteerenerere 


TEST FOR DRIVES PRESENT USING RHAS AND RHCS2 


; ,teeeererererererrererererrrrerererentenrenererenereererereneere 


SeTEST 4 
1$14: 


3$: 


#1, STIMES 


#TTNO,aaTSTNM 
PC ,a#STKINT 
#SW13,aSWR 

4$ 


ty 


;;D0 1 ITERATION 


START WITH AN INIT 

; THIS SAVES TEST NUMBER 
sINITILIZE TTY KEYBOARD 
; INHIBIT ERROR TYPEOUT? 
;BRANCH IF YES 


ii TYPE ASCIZ STRING 
;GET OVER THE ASCI2Z 


O18><12><159<12>/, 00K ING AT RHAS = DRIVES ASSUMED PRESENT/<15><12> 


,67$ 


3; TYPE ASCIZ STRING 
3:GET OVER THE ASCIZ 


<15><12>/eeeererererenerenreenereeneeeereeeereeeeres / 


69% 
68% 
<15><12>/ 


71% 
70$ 


2 i TYPE ASCIZ STRING 
GET OVER THE ASCI2Z 


>; TYPE ASCIZ STRING 
::GET OVER THE ASCIZ 


THIS MUST BE VERIFIED BY OPERATOR !!/ 


<15><12>/eeereeeeerrerererererereeeenerereeeereeeeee / 


OARHAS ,R1 
A#RHCS2,R2 
aR2 

#8. ,R0 
QARHER RG 
#-1,0R4 


OR1,a#TOTALAT 
a#TOTALAT+1 
aR | 


2$ 
XE2 


#SW13,aSWR 
3$ 
SELTST 


.73% 
72% 


;LOAD R1 WITH ADDR. OF RHAS 
;LOAD R2 WITH ADDR. OF RHCS2 
CLEAR RHCS2 (ADDRESS UNIT #0) 


INITIALIZE DRIVE COUNTER 


;LOAD R4& WITH ADDR. OF RHE 
;MOVE ERRORS INTO RHER1 OF UNIT ADDRESSED 


RI 


: INCREMENT UNIT NO. (RHCS2) 


:COUNT DOWN DRIVE COUNTER 
:TEST AND DO NEXT UNIT IF 


8 NOT DONE 


SAVE ALL RESULTING ATTENTION BITS 
; (USED IN DRIVE CLEAR TEST) 


;CLEAR UPPER BYTE 
> TEST RHAS FOR ANY DRIVES 


PRESENT 


;NONE RESPONDING = TYPE THE MESSAGE 


;SOME THERE = GO FILL “UNITS” 


>; INHIBIT ERROR TYPE OUT? 
7TYPE “‘NO DRIVES'’ MESSAGE 


>CHECK FOR SELECTED UNIT STARi 
;"UNITS'’ TABLE WITH DESIRED DRIVE IF SO 


7; TYPE ASCIZ STRING 
7;GET OVER THE ASCIZ 


TABLE 


1F NO 
AND LOAD 


CZRIGDO,RPO4/5/6 DSKLS CTRLRI 
10-SEP-79 11:00 


CZRIGD.P11 


007022 
007922 
007026 
007110 
007110 
007114 
007176 
007176 
007202 
007300 


007300 


007304 
007304 


007322 
007324 


007352 
007354 


007376 


007400 
007406 
007410 
007416 


007420 
007426 
007430 
007436 


104401 
000430 


104401 
000430 


104401 
0004 36 


000137 


103120 


010577 
022777 
001503 
022777 
001477 


022777 


001467 


022777 
001463 
022777 
001457 


007030 


007116 


007204 


041432 


000010 
001754 
177777 


001754 
001776 
000010 


001176 
001176 


172256 
024020 


020020 


024021 
020021 


024022 
020022 


MACY11 30A(1052) 
14 


172276 
172266 


172256 
172246 


172236 
172226 


72$: 
74$: 
76$: 


78$ 
JMP 


; a 
10-SEP-79 11:11 PAGE 42 
TEST FOR DRIVES PRESENT USING RHAS AND RHCS2 SEQ 0041 


738: .ASCIZ 
TYPE 
BR 
3:75$: .ASCI2 
TYPE 
BR 
33778: .ASCIZ 
TYPE 
BR 
=:79$: ASCIZ 


<15><12>/N0 
75% 

74% 

+ 
,77$ 

76$ 
<15><12>/D0E 
79% 

78% 
<15><12>/T0 


a*#SeoP 


DRIVES PRESENT - RHAS = 0/<15><12> 


Shh, ASCIZ STRING 
;GET OVER THE ASCIZ 
TING ONES INTO RHER1 FOR ALL UNIT NUMBERS/ 


ght ASCIZ STRING 
GET OVER THE ASCIZ 
S NOT SET ANY BIT IN RHAS SO ABORT PROGRAM/ 


+e TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 
LOOP ON THIS TEST WO PRINTOUT, SET SWITCHES 13, 8 & 2/ 


>*SET UP DRIVES PRESENT TABLE 


KE2: 
2$: MOV 
3$: MOV 


10$: MOV 


4$: ROR 


118: MOV 


32 *@eeneeeeerererreerererereetereererereeerreeektereeteeteeeteeeeteneee 


CMP 


BEQ 


Lpeeeeeeeerereeeeeeeseeeceeeeeeceecececenererereneerereneueserees 


#8. ,R0 
#UNITS,R3 
#-1,(R3)+ 
RO 

3$ 
#UNITS,R3 
R5 
a#NOUNIT 
#8. ,R0 
aR1,a#STMPO 
aaeSTMPO 
5$ 


R5,Q@RHCS2 
#24020,aRHDT 


6$ 
#20020, aRHDT 
6$ 


eer. /@RHDT 
6 

#20021, @RHDT 
6% 


#24022 ,aRHDI 
6 
#20022,aRHDT 
6% 


;LOAD ‘UNITS'’ TABLE COUNTER 

;LOAD “‘UNITS"’ TABLE POINTER 

PRESET 1ST TABLE BLOCK TO ALL ONES 
; COUNT DOWN 

;PRESET NEXT BLOCK IF 8 NOT DONE 


;RELOAD THE TABLE POINTER 

; INITIALIZE UNIT NO. TO 0 

NO. OF UNITS PRESENT 

;RELOAD THE TABLE COUNTER 

ADDR OF RHAS INTO TEMPORARY STORAGE 
SET CARRY IF 0 BIT = 1 (UNIT ATTEN.) 
;CHECK NEXT UNIT IF ONE NOT IN BIT 0 


INSERT UNIT NO. INTO RHCS2 UNIT ADDR. 
READ RHDT = 1S IT A DUAL PORT RPOS ? 
7YES...TYPE THE UNIT NO. 

:READ RHDT = IS IT A SINGLE PORT RPOG ? 
;YES...TYPE THE UNIT NO. 


;DUAL PORT RPOS ? 

:TYPE UNIT NO. IF $0 

fhe PORT RPOS ? 
TYPE NO. IF SO 


; READ RHDT - IS IT A a PORT RPO6 ? 
YES...TYPE THE UNIT 

“READ “RHDT - IS ITA Sree PORT RPOG ? 
:YES...TYPE THE UNIT NO. 


ee 


aon 


CZRIGDO, Ne + DSKLS CTRLRI 
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007440 
007444 


007466 
007466 
007470 
007472 
007476 


007514 


007526 


007574 
007574 


007576 


007610 


007614 
007616 
007620 


007622 
007630 
007636 


007642 
007646 
007650 


104401 
000410 


010546 
104405 
104401 
000406 


017746 
104402 
104401 
000422 
000407 


010523 


005237 
005205 
005300 
001252 


013737 


007446 


007500 


172144 
007530 


001223 


001776 


001754 001774 
001776 002000 
002000 
002002 


002004 001774 


MACY11 30A(1052) 
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37658: 
64$: 


33678: 
66$: 


3;698: 
68$: 


6$: 


5$: 


128: 


SELTST: 


dD 4 
10-SEP-79 11:11 PAGE 43 
TEST FOR DRIVES PRESENT USING RHAS AND RHCS2 SEQ 0042 


7tNO0.. 


-1T°S NOT AN RPOG/RPOS/RPOG DEVICE SO TYPE 


>*OUT THE DEVICE TYPE 


TYPE 
BR 
eASCIZ 


MOV 
TYPDS 
TYPE 


BR 
-ASCIZ 
MOV 
TYPOC 
TYPE 


BR 
-ASCIZ 


65% ii TYPE ASCIZ STRING 
64% :GET OVER THE ASCIZ 
<15><12>/UNIT NUMBER / 


R5,-(SP) vee Ti UNIT NUMBER ON STACK 
IT 

,67$ Ty TYPE ASCIZ STRING 
66% 3:GET OVER THE ASCIZ 
/, RHDT = / 
@RHDT,-(SP) PUT RHDT ON THE STACK 

iw IT 
,69% ; TYPE ASCIZ STRING 
68$ GET OVER THE ASCIZ 
? = NOT AN RPO4/RPOS/RPOG DEVICE !!? 
5$ ;UNIT NOT AN RPO4/RPOS/RPO6 SO TEST NEXT ONE 
R5,(R3)+ ;LOAD TABLE POSITION AND INCR IT 
-SCRLF 7 CRLF 
R5,-(SP) ;PUT UNIT NO. ON THE STACK 

; TYPE THE UNIT NO. 
a#NOUNIT TINCR THE TOTAL NO. OF UNITS 
R5 ;"RHCS2* UNIT ADDRESS 
RO ;DRIVE COUNTER DOWN ONE 
4% TEST AND DO NEXT UNIT IF 8 NOT DONE 
Q@#UNITS,Q@#UNIT ;SET UNIT NO. TO FIRST ONE FOUND/OR 0 
@#NOUNIT,@#NUNIT ;SAVE NO. OF UNITS 
@#NUNIT :1f NUNIT = 0 THEN ONLY ONE UNIT 

;1f NUNIT > 0 THEN MORE THAN ONE UNIT 
O*SELECT STARTING ADDRESS 200 ? 
TST [BRANCH IF STARTING FROM 200 


$15 
Q@#UNITSL,Q#UNIT ; CHANGE UNIT NUMBER TO SELECTED ONE 


aon 


CZRIGDO,RPO4/5/6 DSKLS eh} 
CZRIGD.P11 1:00 


007656 
007660 
007666 


007674 


007702 
007706 


007712 


007732 
007736 


007740 
007744 


007746 
007752 
007754 
007760 
007764 


007770 


010020 


10-SEP-79 1 


000004 
012737 
012737 


012737 


004737 
005037 


005737 
001022 
012700 
122710 
001015 
005737 


001012 


012700 
005720 


022710 


013700 


010077 


000403 


000001 
010404 


000005 
042732 
002016 


001774 


000041 
000011 


002002 


001754 


177777 
001774 


001776 
001774 


171642 
002036 
024022 
020022 


MACY11 


001212 
001106 


002032 


171656 
171646 


E 
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14 TEST FOR DRIVES PRESENT USING RHAS AND RHCS2 SEQ 0043 


;peeererrererrrerrererereerererererereteretereneereerereeeereeeeeese 


TEST 5 TYPE SERIAL NUMBER AND DRIVE TYPE 
als SET APPROPRIATE ATTENTION BIT OF UNIT UNDER TEST IN 
;*e "ATTENT’ AND TYPE THE UNIT UNDER TEST 
aire READ SERIAL NUMBER REGISTER AND DRIVE TYPE REGISTER, 
ees TYPE THEM OUT AND PROCEED 
;ee TO LOOP HERE SET SWITCH 8 AND THIS TEST NO. AND RESTART 
sy eereererereererereerrrrereereereereneneeeenrenereeerenenterenese 
TSTS: SCOPE 

MOV #1,STIMES ;;00 1 ITERATION 

MOV #1$,$LPADR ;;SET SCOPE LOOP ADDRESS 

MOV WTTNO,Q#TSTNM =; THIS SAVES TEST NUMBER 

JSR PC, ,a#CLDISK FILL UNIT NO. 

CLR @#ATTENT > CLEAR 


BNE 10$ ;1f NOT, TEST THIS UNIT 
MOV #41,R0 :1F SO, CHECK THE LOAD MEDIA LOCATION 
CMPB #11, (RO) WAS 1T AN RPO4/5/6 ? 
BNE 10% 7;NO...GO AHEAD WITH TESTING UNIT #0 
TST @#SELECT WAS UNIT #0 SELECTED ? 

7 (1E. WAS IT A 210 START ?) 
BNE 10$ :1F SO...TEST IT 


;tINCREMENT THE UNITS TABLE TO NEXT DRIVE (IF ANY) 
;*& DECREMENT THE ‘NOUNITS'’ PRESENT (TO BE TESTED) 


MOV yt +t de RO ;LOAD THE UNITS TABLE POINTER 
TST (RO)*+ :SELECT THE NEXT UNIT IN THE TABLE 

; (DOUBLE INCREMENT THE POINTER, RO) 
CMP #-1,(RO) 31S THERE ANOTHER TABLE ENTRY PRESENT ? 
BEQ 10$ :1F NOT (LOC = -1)...MUST USE UNIT #0 
MOV (RO) ,@#UNIT ;SET UP TO BE THE UNIT UNDER TEST 


DEC @#NOUNITS 
10$: MOV a#UNIT,RO 


;DECREMENT BECAUSE UNIT # 0 WONT'T BE TESTED 
RO CONTAINS UNIT NO. 


;*SET UP THE PROPER DEVICE TYPE FLAG 


Sp erecececerceceerererreeeceresereseereeseresenrareneseesenaeeenre 


MOV RO,a@RHCS2 SET UP UNIT ADDRESS 


CLR aaRP06 ;CLEAR RPO6 DEVICE TYPE FLAG 
CMP #24022,aRHDT ;DUAL PORT RPO6 ? 

BEQ 23 sYES...SET THE FLAG 

CMP #20022,aRHDT : SINGLE PORT RPO6 ? 

BEQ 2% 7 YES..SET FLAG 


*TEST FOR UNIT #0 
TST a#UNIT 71S UNIT #0 NEXT IN THE UNITS TABLE ? 
BR 3$ ZNO...DON'T SET RPOO FLAG 


aon 


e ede Tol 


F 4 
CZRIGDO,.RPOG/5/6 DSKLS CTRLR1 MACY11 30A(1052) 10-SEP=79 11:11 PAGE 45 Cl 
CZRIGD.P11 10-SEP-79 11:00 15 TYPE SERIAL NUMBER AND DRIVE TYPE SEQ 0044 Ci 
et3) 010022 012737 177777 002036 28: MOV #-1,a#RP06 sSET IT 
2103 010030 3$: ;ASSUME THE NEXT UNIT IS AN RPOS 
2104 ple eteerrrrererrererererererererererererenerereeeererenenereeeeeeee 
2105 
Sior 010030 116037 004224 002016 MOVB ATABLE(RO) ,@#ATTENT ;SET APPROPRIATE ATTENTION BIT 
2108 010036 104401 010044 TYPE 65% >; TYPE ASCIZ STRING 
2109 010042 000414 BR 648% ::GET OVER THE ASCIZ 
2110 33658: .ASCIZ <15><12>/TESTING DRIVE NUMBER/ 
2111 010074 648: 
2112 010074 013746 001774 MOV Q@#UNIT,-(SP) sUNIT NO. TO STACK 
2113 010100 104405 TYPDS ;TYPE DRIVE NO. 
2116 010102 104401 010110 TYPE ,67$ >; TYPE ASCIZ STRING 
2115 010106 000410 BR 66% 3;GET OVER THE ASC1Z 
2116 33678: .ASCIZ <15><12>/SERIAL NO. = / 
2117 010130 66$: 
2118 010130 017746 171532 MOV Q@RHSN,-(SP) >; SAVE @RHSN FOR TYPEOUT 
2119 010134 104402 TYPOC 3:G0 TYPE=-OCTAL ASCIIC(ALL DIGITS) 
2120 010136 104401 910144 TYPE 69% sr: TYPE ASCIZ STRING 
2121 010142 000410 BR 68% :;GET OVER THE ASCI2Z 
2122 33698: .ASCIZ <15><12>/DRIVE TYPE = / 
2123 010164 68$: 
2124 010164 017746 171474 MOV @RHDT,-(SP) 3; SAVE @RHDT FOR TYPEOUT 
te 010170 104402 TYPOC 3:G0 TYPE--OCTAL ASCII(ALL DIGITS) 
6 
2127 speeeeeeererrrrereeeererrerereerererrereneeeeeeereeeeneteeRenenene 
2128 010172 022777 024020 171464 CMP #24020,aRHDT :DUAL PORT RPO ? 
2129 010200 001425 BEQ 4$ sTYPE ASCII MSG OUT 
2130 010202 022777 020020 171454 cmp #20020,aRHDT >SINGLE PORT RPO4 ? 
Stes 010210 001421 BEQ 4$ s TYPE THE MESSAGE 
2133 010212 022777 024021 171444 cmp #24021,aRHDT :DUAL PORT RPOS ? 
2134 010220 001453 BEQ 6$ s TYPE MSG 
2135 010222 022777 020021 171434 CMP #20021,aRHDT sSINGLE PORT RPOS ? 
tae 010230 001447 BEQ 6$ s TYPE MSG 
2138 010232 022777 024022 171424 CMP #24022, aRHDT :DUAL PORT RPO6 ? 
2139 010240 001424 BEQ 5$ s TYPE MSG 
2140 010242 022777 020022 171414 CMP #20022,aRHDT sSINGLE PORT RPO6 ? 
2141 010250 001420 BEQ 5$ s TYPE MSG 
2142 010252 000454 iad 1$ DRIVE 1S NOT AN RPOG/RPOS/RPO6 = SO 
2143 sDON'T TYPE THE ASCII] MESSAGE 
2144 
2145 :=SHOULD NEVER HAPPEN AT THIS POINT 
2146 sUNLESS DRIVE GOT SICK WHILE TESTING 
2147 sWAS IN PROGRESS 
2148 010254 4$: 
2149 010254 104401 010262 TYPE 71% >; TYPE ASCIZ STRING 
2150 010260 000413 6R 70% :;GET OVER THE ASCI2 
2151 371%: .ASCIZ <15><12>/DRIVE IS AN RP04/<15><12> 
2152 010310 70$: 
2153 010310 000435 BR 1$ ;SKIP NEXT MESSAGE 
2154 010312 S$: 
2155 010312 104401 010320 TYPE 73% ss TYPE ASCIZ STRING 
2156 010316 000413 BR 72% ::GET OVER THE ASCI2Z 


G 4 
CZRIGDO,RPO4/5S/6 DSKLS CTRLR1 = MACYI1 — 10-SEP-79 11:11 PAGE 46 


CZRIGD.P11 10-SEP-79 11:00 TYPE SERIAL NUMBER AND DRIVE TYPE SEQ 0045 
2157 33738: .ASCIZ <15><12>/DRIVE 1S AN RPO6/<15><12> 
2158 010346 728: 
2159 010346 000416 BR 1$ >SKIP NEXT 
2160 010350 6$: 
2161 010350 104401 010356 TYPE ,75$ sr; TYPE ASCIZ STRING 
2162 010354 000413 BR 74% 3:GET OVER THE ASCIZ 
2163 3;75$: .ASCIZ <15><12>/DRIVE 1S AN RPOS/<15><12> 
2164 0104046 74%: 
2165 pp erteerererererereererrerererereretereetetererereneeerereerenTee 
2166 
2167 010604 005777 171256 1$: TST @RHSN ;READ SERIAL NO. AND DRIVE TYPE 
2168 010410 005777 171250 TST @RHDT sTh2SE TWO ARE TO HELP SCOPE LOOPS 
2169 010414 017737 171246 002012 MOV QRHSN,@#SAUSN sSAVE TO CHECK IF CLR RHCS2 BIT 5 CLEARS ANY BITS 
2170 0104622 017737 171236 002010 MOV Q@RHDT ,a#SAvDT :SAVE TO CHECK IF CLR RHCS2 BIT 5 CLEARS ANY BITS 


CZRIGDO,RPOG/5/6 DSKLS CTRLR1 MACY11 
10-SEP-79 11:00 


CZRIGD.P11 


0 C2 OD CO 


010430 
010432 
010440 
010444 
010450 
010452 
010456 


010522 
010522 
010526 


010600 
010600 
010604 


010666 
010666 
010672 
010674 
010700 


010774 


000004 


000421 


104401 
000424 


104401 
0004 30 


032713 
001375 
104401 
000435 


000006 002032 
042732 
010000 


010460 


010530 


010606 


010000 
010702 


30A(1052) 
15 
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10-SEP-79 11:11 PAGE 47 
TYPE SERIAL NUMBER AND DRIVE TYPE SEQ 0046 


*s@enteeeeererrerererterreertereteeretrrereeetereeteteeeeereteretete 


TEST 6 


CHECK MOL TO BE LOW 


MAKE SURE THAT DRIVE IS OFF LINE BEFORE STARTING PROGRAM 
If DRIVE 1S ON LINE THEN AFTER TYPE OUT THE PROGRAM WILL 
HANG FOR EVER WAITING FOR DRIVE TO GO OFF LINE 


*s@#eeeeeereerrrrerereeeeerererererererereeerereteeteeteeeeterternnee 


TST6: 


33658: 
643: 


= 678: 
66$: 


769%: 
bbs: 
1$: 


3718: 
708: 


SCOPE 


WTINO,Q#TSTINM =; THIS SAVES TEST NUMBER 


PC ,a#CLDISK GIVE INITILIZE 

#MOL ,aR3 CHECK MOL IN RHDS1 
TST? pel IF MOL LOW 
,65$ TYPE ASCIZ STRING 


64$ ;GET OVER THE ASCIZ 
<15><12>/DRIVE 18 ON LINE - MOL IS HIGH/ 


ty 2 i TYPE ASCIZ STRING 
66$ ;GET OVER THE ASCIZ 
<15><12>/HIT STOP ON DRIVE TO GET IT OFF LINE/ 


09% TYPE ASCIZ STRING 
68$ [GET OVER THE ASCIZ 
<15><12>/PROGRAM WILL HANG TESTING MOL TILL MOL IS LOW/ 


#MOL ,aR3 CHECK MOL IN RHDS1 
1$ een IF MOL IS HIGH 
71% TYPE ASCIZ STRING 


70% :GET OVER THE ASCI2Z 
<15><12>/G00D - wor 1S NOW LOW . PROGRAM WILL NOW BE EXECUTED/<15><12> 


1] 4 
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CZRIGD.P 10-SEP-79 11:00 16 CHECK MOL TO BE LOW 
2205 
soo .SBITL REGISTER TESTS 
2208 sy eeterereerererrereerererereererrerereereerererenenererenererere 
2209 s*TESt 7 RHCS2 = CONTROL AND STATUS 2 
2210 pte TEST LOADING AND READING OF ALL POSSIBLE BITS IN THE HARDWARE 
2211 pee REGISTERS. USE A PETTERN OF WALKING 0'S (-2,-3,-5 ETC.) AND 
2212 pee WALKING 1°S (1,2,4,10 ETC) 
2213 ppetteeererrerereerereerrererterrereeerererereeteeteeeeeereeeeeeeee 
2214 010774 000004 TS17: SCOPE 
aH 010776 012737 000007 002032 MOV #TTNO,@#@TSTNM ;THIS SAVES TEST NUMBER 
soli :*CHECK TO SEE If THE PROGRAM IS RUNNING WITH AN RH70 
2219 011004 005737 002040 TST a#RH70 TEST FLAG FOR RH70 CONTROLLER 
2220 011010 001402 BEQ 30$ :1F FLAG = 1, THIS TEST IS SKIPPED 
2221 011012 000137 011064 JMP TST10 > JUMP TO NEXT TEST ------------------- ) 
o2¢e 011016 308: :1F FLAG = 0, DO THIS TEST 
gees 011016 004737 042732 JSR PC, a#CLDISK GIVE INITIALIZE 
2226 
2227 011022 012706 001000 MOV #STACK,SP sRESET STACK 
se 011026 012737 000007 002032 MOV #TTINO,@#TSTNM ;:THIS SAVES TEST NUMBER 
2230 011034 013737 001636 011056 MOV Q#RHCS2,a#PRCS24+14 GET REGISTER ADDRESS 
2231 011042 013777 001774 170566 PRCS2: MOV @#UNIT,@RHCS2 ;MOVE UNIT NO. UNDER TEST 
2232 011050 004537 042404 JSR R5,BITST TEST BITS IN REGISTER 
2233 011054 020017 WORD 20017 ONLY THESE BITS ARE TESTED FOR READ/WRITE 
2234 011056 176710 -WORD 176710 ADDRESS OF REG. BEING TESTED 
2235 011060 104001 ERROR 1 > INCORRECT DATA RECEIVED 
o236 031062 000207 RTS PC RETURN TO BLT3 ROUTINE 
2238 
2239 
2240 
2241 
2242 
2243 
2244 Sl eeeerererereerrerrerrerererererereeereneteneratererenerereseeesS 
2245 :*TEST 10 RHCS1 = CONTROL AND STATUS 1 REGISTER 
2246 pee TEST LOADING AND READING OF ALL POSSIBLE BITS IN THE HARDWARE 
2247 see REGISTERS. USE A PATTERN OF WALKING 0'S (-2,-3,-5 ETC) AND 
2248 pee WALKING 1°S (1,2,4,10 ETC) 
2249 sp eeererererererereerererererererererereneneeeneneeeeeeeeeerTeneS 
oo30 011064 000004 TST10: SCOPE 
2252 011066 012706 001000 MOV #@STACK,SP sRESET STACK 
5344 011072 012737 000010 002032 MOV #TTNO,a#TSTNM sTHIS SAVES TEST NUMBER 
4 
2255 011100 013737 001640 011122 MOV A#RHCS1,a#PRCS14+14 :GET REGISTER ADDRESS 
2256 011106 013777 001774 170522 PRCS1: MOV Q#UNIT,ARHCS2  ;:MOVE UNIT NO. UNDER TEST 
2257 011116 004537 042404 JSR R5,BITST :TEST BITS IN REGISTER 
2258 011120 001476 -WORD 1476 “ONLY THESE BITS ARE TESTED FOR READ/WRITE 
2259 011122 176700 .WORD 176700 ADDRESS OF REG. BEING TESTED 
2260 0111246 104001 ERROR 1 INCORRECT DATA RECEIVED 


aon 


CZRIGDO ,RPO4/5/6 DSKLS Oy 00 


CZRIGD.P11 10-SEP-79 1 
2261 011126 000207 
2262 
2263 


MACY11 30A(1052) 
110 


10-SEP-79 


11:11 


J 4 
PAGE 49 


RHCS1 = CONTROL AND STATUS 1 REGISTER 


RTS PC 


;RETURN TO BLT3 ROUTINE 


SEQ 0048 


K 4 
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CZRJGD.P11 10-SEP-79 11:00 110 RHCS1 - CONTROL AND STATUS 1 REGISTER SEQ 0049 
2264 
2265 
2266 ;,eeeeeeererererrerereerrrererererererenenerenereareneeeeererenes 
2267 s*TEST 11 RHCS1 = BIT # 13 = MCPE 
2268 3; ee THIS FORCES A MASS BUS CONTROL PARITY ERROR 
2269 yee BY SETTING ‘PAT’, LCOKING FOR ‘PAR’, WRITING RHCSi 
2270 3;ee AND READING RHER1 
2271 sp erterererrerereererereererererererrrereeereeeeeeneeeteeeeeee Tee 
sete 011130 000004 TST11: SCOPE 
2274 011132 012706 001000 MOV @STACK,SP RESET STACK 
2275 011136 012737 000011 002032 MOV #TTINO,aa@TSTNM sTHIS SAVES TEST NUMBER 
2276 011144 004737 042732 JSR PC, ,a#CLDISK s INIT AND SET UNIT NUMBER AND DEVICE - 
oorr ;CPU REG. CORRESPONDENCE (R1-R4) 
2279 :*SET FORCED PARITY ERROR ‘PAT’ 
2280 011150 052777 000020 170460 BIS #PAT,@RHCS2 7SET "PAT’ TO INVERT PARITY 
2281 > GENERATED 
cons 011156 005077 170460 CLR ORHER1 sWRITE DCL REGISTER USING BAD CONTROL PARITY 
2284 s*W1TH THIS PARITY ERROR NOTHING WILL BE READ TILL IT IS 
sSee 7 *CLEARED 
2287 011162 011137 001126 MOV QR1, a#$BDDAT :RHCS1 <--> SBDDAT 
yo 011166 022737 104200 001126 CMP estactaimettmet 1 Nata: RHCS] AFTER PARITY 
2290 011174 001406 BEQ 1$ sBRANCH IF SC! we 1 
2291 011176 012737 104200 001124 MOV + DVA'IRDY, a#SGDDAT ;GOOD DAT 
2292 011204 010137 042402 MOV ,@#REGADR :REGISTER ADDRESS RHCS1 
2293 011210 104001 ERROR “SETLING PAT AND 
2294 sWRITING DCL REGISTER RHCS1 
2295 :D1D NOT SET SC!DVA!RDY 
2296 sW1TH ‘PAT’ BIT HIGH 
2297 011212 013746 001774 1$: MOV a#UNIT,-(SP) ;GET UNIT NUMBER 
2298 011216 052716 000120 BIS #PAT!IR, (SP) ; INCLUDE PAT AND IR 
2299 011222 012637 001124 MOV (SP)¢, te eur ON STACK 
2300 011226 011237 001126 MOV ar2, aa#$BD BDDAT CS2 ===> $BDDAT 
2301 011232 023737 001124 001126 CMP as#SGDDAT, eaeeal COMPARE RHCS2 
2302 011240 001403 BEQ 2 : OK - SC!DVA!RDY ARE HIGH 
2303 011242 010237 042402 MOV R2,a#REGADR REGISTER ADDRESS 
2304 011246 104001 ERROR 1 READING DCL REGISTER RHCS2 DID NOT 
308 SHOW UNIT#!PAT!IR BITS 4I1GH 
2307 011250 011437 001126 2$: MOV aR4,a#$BDDAT RHER1 ---> SBDDA 
2308 011254 022737 000010 001126 CMP #PAR,a#SBDDAT sERROR REGISTER ment SHOULD 
2309 ’ sHAVE ‘PAR* SET 
2310 011262 001406 BEQ 3$ 7A - OK, IT DOES 
2311 011264 012737 000010 001124 MOV #PAR a#SGDDAT ;GOOD DATA 
2312 011272 010637 042402 MOV R4 ,@#REGADR sFAILING REGISTER RHER] 
2313 011276 104001 ERROR 1 :PARITY ERROR DID NOT 
2314 :SET "PAR 
2315 
2316 011300 3$: 





an 
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Nm 
Ww 
— 
~ 


fMrrrnrr 
COVFWN—O0OMW 


011300 000004 


2328 011302 012706 
2329 011306 012737 


2330 
2331 011314 013737 
2332 011322 013777 
2333 011330 004537 
2334 011334 «177777 
2335 011336 176702 
2336 011340 104001 
2337 011342 000207 
2338 
2339 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2350 011344 000004 
2351 
2352 011346 012706 


2353 011352 012737 


2354 

2355 011360 013737 
2356 011366 013777 
2357 011374 004537 
2358 011400 177776 


3 
2359 011402 176704 
2360 011404 104001 
000207 
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001000 
000012 


001632 
001774 
042404 


001000 
000013 


001634 
001774 
042404 


002032 


011336 
170306 


002032 


011402 
170242 
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RHCS1 - BIT # 13 = MCPE 


--@#eterererererererrerererrerereererereeereeeeereteeeeterereeeees 


s*TEST 12 RHWC - WORD COUNT REGISTER 


TEST LOADING AND READING OF ALL POSSIBLE BITS IN THE HARDWARE 
REGISTERS. USE A ee ise OF WALKING 0°S (=2,-3,-5 ETC.) AND 
WALKING 1°S (1,2,4,10 E 


oR eee RR iid ne hovel doa: ees St Te 


18112: SCOPE 
MOV WSTACK,SP ;RESET STACK 
MOV #TTNO,@#TSTNM THIS SAVES TEST NUMBER 
MOV AHRHWC ,aHPRWC + 14 ;GET REGISTER ADDRESS 
PRWC: MOV @#UNIT,@RHCS2  ;MOVE UNIT NO. UNDER TEST 
JSR RS, BITST :TEST BITS IN REGISTER 
LWORD = 177777 ZONLY THESE BITS ARE TESTED FOR READ/WRITE 
WORD 176702 SADDRESS OF REG. BEING TESTED 
ERROR 1 S INCORRECT DATA RECEIVED 
RTS PC ;RETURN TO BLT3 ROUTINE 
**@eraereereeeererereeeeeetererereerekreeekteereeeeeeeeteteeetereeeeee 
*TEST 13 RHBA - UNIBUS ADDRESS REGISTER 
pee TEST LOADING AND READING OF ALL POSSIBLE BITS IN THE HARDWARE 
pee REGISTERS. USE A PATTERN OF WALKING O'S (-2,-3,-5 ETC.) AND 
pee WALKING 1°S (1,2,4,10 ETC) 
ppeeeerererererrereserererrererrerereeereReAKeeeeReKeKeReeeese ee ee 
1$113: SCOPE 
MOV #STACK SP ;RESET STACK 
MOV #TTNO,@#TSTNM =: THIS SAVES TEST NUMBER 
MOV @#RHBA, asPRBA+14 :GET REGISTER ADDRESS 
PRBA: MOV @#UNIT,ARHCS2  ;MOVE UNIT NO. UNDER TEST 
JSR R5,BITST :TEST BITS IN REGISTER 
WORD 177776 ZONLY THESE BITS ARE TESTED FOR READ/WRITE 
“WORD 176704 SADDRESS OF REG. BEING TESTED 
ERROR 1 ; INCORRECT DATA RECEIVED 
RTS PC ;RETURN TO BLT3 ROUTINE 





SEQ 0050 


pico 


C2 
Cd 
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011410 


011412 
011416 


011424 
011432 
011440 
011444 
011446 
011450 
011452 
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000004 


012706 
012737 


013737 


104001 
000207 


001000 
000014 


001642 
001774 
042404 
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002032 


011446 
170176 


E 52 
RHBA - UNIBUS ADDRESS REGISTER SEQ 0051 


--@@rreeetrereerttererererererrenerertereerenekeneetaeneeteteeeeeneeee 


pesees 14 RHER] - ERROR REGISTER #1 
ie TEST LOADING AND READING OF ALL POSSIBLE BITS IN THE HARDWARE 
tee REGISTERS. USE A ty OF WALKING 0°S (-2,-3,-5 ETC.) AND 
" haed WALKING 1°S (1,2,4,10 ETC 
4 | cuiaiadiiedanlalsatennemumnbenatabeseanennbanemainemnianiel 
TST14: SCOPE 
MOV #STACK,SP RESET STACK 
MOV #TTINO,Q@#TSTNM = ;THIS SAVES TEST NUMBER 
MOV GARHER] ,AMPRERI+14 ;GET REGISTER ADDRESS 
PRER1: MOV Q@#UNIT,@RHCS2 ;MOVE UNIT NO. UNDER TEST 
JSR R5,B11ST TEST BITS IN REGISTER 
«WORD 177777 sONLY THESE BITS ARE TESTED FOR READ/WRITE 
«WORD 176714 ADDRESS OF REG. BEING TESTED 
ERROR 1 > INCORRECT DATA RECEIVED 
RTS PC ;RETURN TO BLT3 ROUTINE 






CZRIGDO,RPO4/5/6 DSKLS ete 
CZRIGD.P11 10-SEP-79 11:00 


2 

2397 011454 000004 

2399 011456 012737 000015 002032 
042732 


2403 011500 012702 000005 
2404 011504 012710 000001 
2405 011510 050110 

2406 011512 010146 

2407 011514 052716 000401 
2408 011520 011637 001124 
2409 011524 022610 

2410 011526 001405 

2411 011530 011037 001126 
2412 011534 010037 042402 
2413 011540 104001 

2414 

2415 

2416 011542 000241 

2417 011544 006101 

2418 011546 052701 000400 
2419 011552 042701 001000 
2420 011556 005302 

2421 011560 001351 

2422 

2425 

2424 

2425 

2426 011562 012701 000435 
2427 011566 012702 000005 
2428 011572 012710 000001 
2429 011576 050110 

2430 011600 020110 

2431 011602 001407 

2432 011606 010137 001124 
2433 011610 011037 001126 
2434 011614 010037 042402 
2435 011620 104001 

2436 

2437 

2438 1622 000261 


1632 052701 000400 
1636 005302 
1640 001354 


01 
01 
2440 ar ees 042701 001340 
01 
01 
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11:11 


RHER1 - ERROR REGISTER #1 


pp ee eeeereeeeerererrrererererereeeeeeeeerereeeeererereeererereeee 
:*TEST 15 
BIT 0 (DMD) MUST BE SET BEFORE THE OTHER BITS 
ARE READ WRITE 

ONLY 5 LOW ORDER BITS ARE TESTED (R2 HAS 5) 


“af 
“ae 
-af 


TST15: 


2$: 


3$: 


4%: 





SCOPE 


RHMR = MAINTENANCE REGISTER 


sy; ererererererrererererrerererereeHierererenereteeeeeeeeRereneneee 


#TTINO,@#TSTNM =; THIS SAVES TEST NUMBER 
PC ,a#CiDISK ;SET UNI? NUMBER AND INIT 
Q#RHMR, RO RO HAS MAINTENANCE REG. ADR. 


#1,R1 ;R1 HAS DATA 
7;R2 HAS COUNT OF NUMBER OF BITS 
;SET DIAGNOSTIC MODE BIT 
R1,aR0 ;SET DATA IN RHMR 

SAVE DATA FOR COMPARES 
#DMD!400, (SP) 


; INCLUDE BIT 0 
(SP) ,a#S$GDDAT SAVE FOR ERROR PRINTOUT 


(SP)+,aRO ; COMPARE DATA 

2$ BRANCH IF GOOD 
aRO,SBDDAT :BAD DATA 

RO, a#REGADR ;FAILING REG. ADR. 

1 MAINTENANCE REGISTER 


7h ag TO SET INDICATED 


3;BIT 
cer EAR CARRY 
R1 =GET NEXT DATA 


#400,R1 ;SET UNUSED BITS 

#B1T09,R1 ;CLEAR READ ONLY BIT 

R2 ; COUNT 

1$ :BRANCH IF 5 BITS NOT DONE 


>*NOW FLOAT A 0 


#435,R1 >R1 HAS DATA 

#5,R2 =R2 HAS COUNT BITS 

#DMD,aRO :SET DIAGNOSTIC MODE BITS 

R1,aR0 sSET DATA IN RHMR 

R1,aR0 : COMPARE DATA 

4$ sBRANCH IF GOOD 

R1,a#S$GDDAT ;GOOD DATA 

ORO, a#SBDDAT ;BAD DATA 

RO, @#REGADR sFAILING REG. ADR. RHMR 

1 >MAINTENANCE REGISTER 
sDOES NOT ALLOW WRITING 
ZEROS 
7 SET meee 

R1 GET NEXT DATA 

#B1105'B1106! 81107811089, R1 ;CLEAR READ ONLY BIT 

#B1108,R1 7SET BIT ZEROED BY ROL 

R2 :COUNT IF 5 BITS DONE 

3$ BRANCH 1F INCOMPLETE 





SEQ 0052 


C2 


CZ 


CZRIGDO,RPOG/5S/6 DSKLS CTRLRI 
CZRIGD.P11 


2444 
2445 


10-SEP-79 11:00 


MACY11 30A(1052) 
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10-SEP-79 


11:11 
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RHMR - MAINTENANCE REGISTER 


SEQ 0053 


aon 


Soe peta 4 DSKLS CTRLRI 
CZRIG 11:00 


por) 
—_— 
— 
so 


COoo0o0o000o0 oo 

et ed ed ed ed oe 

ee ee os a 

NNN NON NN ~_™N 
™m 


001000 
000016 


001644 
001774 
042404 


001000 
000017 


001646 
001774 
042404 





002032 
011700 


167744 


002032 


011744 
167700 






MACY11 30A(1052) 
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10-SEP-79 


11:11 


.% 
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RHMR - MAINTENANCE REGISTER 


s,eeeeerererrererererererrrrrererentererereereneerererenereeeeeres 


RHDST = DESIRED SECTOR/TRACK ADDRESS 


s*TEST 16 
-f 


-ae 
7 
-@e 
. 


TST16: 


PRDST: 


SCOPE 


TEST LOADING AND READING OF ALL POSSIBLE BITS IN THE HARDWARE 


REGISTERS. 


USE A PATTERN OF WALKING 0°S (-2,-3,-5 ETC.) AND 


WALKING 1°S (1,2,4,10 ETC) 


is eeeeereereererereeereereetecereceretererneeeereeeecerereeeeters 


#STACK ,SP RESET STACK 

MTTINO,Q@#TSTINM =; THIS SAVES TEST NUMBER 

O#RHDST ,A#PROST+14 ;GET REGISTER ADDRESS 
Q#UNIT,ARHCS2 MOVE UNIT NO. UNDER TEST 

R5S,BITST TEST BITS IN REGISTER 

17437 :ONLY THESE BITS ARE TESTED FOR READ/WRITE 
176706 ;ADDRESS OF REG. BEING TESTED 

1 ; INCORRECT DATA RECEIVED 

PC ;RETURN TO BLT3 ROUTINE 


**@eeeteeeeerererereeeerirnererererterererekereereeeeerteteneteretete 


RHER2 - ERROR REGISTER #2 
TEST LOADING AND READING OF ALL POSSIBLE BITS IN THE HARDWARE 


1s 


PRER2: 


ST1?: 


:eTEST 17 


SCOPE 





REGISTERS. 


USE A PATTERN OF WALKING 0'S (-2,- 


3,-5 ETC.) AND 


WALKING 1°S (1,2,4,10 ETC) 


ss eteeererterereeeeeererereterertereeterereeeeetteeeetereteeteeeetes 


STACK ,SP RESET STACK 

@TTINO,Q#TSTNM = ;THIS SAVES TEST NUMBER 

O#RHER2 ,A#PRER2+14 ;GET REGISTER ADDRESS 
QMUNIT,A@RHCS2 ;MOVE UNIT NO. UNDER TEST 

RS,BITST TEST BITS IN REGISTER 

177777 ONLY THESE BITS ARE TESTED FOR READ/WRITE 
176740 ADDRESS OF REG. BEING TESTED 

1 > INCORRECT DATA RECEIVED 

PC ;RETURN TO BLT3 ROUTINE 


CZRIGDO,RPO4/5/6 DSKLS CTRLRI 
CZRIGD.P11 11:00 


012016 


012020 
012024 


012032 


10-SEP-79 


000004 


012706 
012737 


013737 
013777 
004537 
001777 
176734 
104001 
000207 


001000 
000020 


001650 
001774 
042404 


00100 
Go00s1 


001652 
001774 
042404 


MACY11 30A(1052) 
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002032 


012010 
167634 


002032 


012054 
167570 


dD 5 
10-SEP-79 11:11 PAGE 56 
RHER2 = ERROR REGISTER #2 


sy eeeeererererrereererererereeerererrererreeeereerereeeeeeeetn tere 


s*TEST 20 RHOF = MARGIN/OFFSET REGISTER 
“sie TEST LOADING AND READING OF ALL POSSIBLE BITS IN THE HARDWARE 
Sid REGISTERS. USE A PATTERN OF WALKING 0°S (-2,-3,-5 ETC.) AND 
; ee WALKING 1°S (1,2,4,10 ETC) 
sp eeteeeerererrerrrrrererrerrereeerreereerereeeerenenerereererenes 
TST20: SCOPE 
MOV WSTACK,SP RESET STACK 
MOV MTTNO,Q@#TSTINM =; THIS SAVES TEST NUMBER 
MOV @#RHOF ,a#PROF +14 ;GET REGISTER ADDRESS 
PROF: MOV Q@#UNIT,@RHCS2 ;MOVE UNIT NO. UNDER TEST 
JSR R5,BITST TEST BITS IN REGISTER 
«WORD 16277 ;ONLY THESE BITS ARE TESTED FOR READ/WRITE 
~-WORD 176732 ADDRESS OF REG. BEING TESTED 
ERROR 1 ; INCORRECT DATA RECEIVED 
RTS PC ;RETURN TO BLT3 ROUTINE 
pp eeteerererererrereerrerereerereeerreKereeeeeeKeeReneeteRenteeere 
s*TEST 21 RHCA = DESIRED CYLINDER REGISTER 
pee TEST LOADING AND READING OF ALL POSSIBLE BITS IN THE HARDWARE 
yr REGISTERS. USE A PATTERN OF WALKING O'S (-2,-3,-5 ETC.) AND 
;te WALKING 1°S (1,2,4,10 ETC) 
sp etenererererrrrererererenerereteeeereeReKeKeKeRereeeKereeeetene 
TST21: SCOPE 
MOV STACK ,SP RESET STACK 
MOV #TINO, ae TSTNM ; THIS SAVES TEST NUMBER 
MOV O#RHCA,A#PRCA+14 ;GET REGISTER ADDRESS 
PRCA: MOV Q@#UNIT,@RHCS2 ;MOVE UNIT NO. UNDER TEST 
JSR R5,B11ST ; TEST BITS IN REGISTER 
«WORD 1777 ONLY THESE BITS ARE TESTED FOR READ/WRITE 
-WORD 176734 ADDRESS OF REG. BEING TESTED 
ERROR 1 : INCORRECT DATA RECEIVED 
RTS PC ;RETURN TO BLT3 ROUTINE 


SEQ 0055 


— 3 
CZRIGDO,RPO4/S/6 DSKLS CTRLRI = MACY) « bicpaete 10-SEP-79 11:11 PAGE 57 


CZRIGD.P1) 10-SEP-79 11:00 RHCA = DESIRED CYLINDER REGISTER SEQ 0056 
2545 
2546 
2547 sp etrererererrrerererererereererrrrerrerrereeeeerereenererereneee 
2548 s* TEST 22 RHER3 - ERROR REGISTER #3 
2549 jee TEST LOADING AND READING OF ALL POSSIBLE BITS IN THE HARDWARE 
2550 pee REGISTERS. USE A PATTERN OF WALKING 0°S (-2,-3,-5 ETC.) AND 
2551 pee WALKING 1°S (1,2,4,10 ETC) 
2552 ps eeeerererererereerrererererrerereeererenerenenenereeeereeereeeKe 
$222 012062 000004 TST22: SCOPE 
2555 012064 012706 001000 MOV #STACK,SP ;RESET STACK 
$228 012070 012737 000022 002032 MOV @TINO,Q@M@TSTNM 8 ;THIS SAVES TEST NUMBER 
2558 012076 013737 001654 012120 MOV QMRHERS ,AMPRER3S+14 :GET REGISTER ADDRESS 
2559 012104 013777 001774 167524 PRER3: MOV @#UNIT,ARHCS2 ;MOVE UNIT NO. UNDER TEST 
2560 012112 004537 042404 JSR R5,B11S1 sTEST BITS IN REGISTER 
2561 012116 177777 ~ WORD 177777 sONLY THESE BITS ARE TESTED FOR READ/WRITE 
2562 012120 176742 WORD 176742 sADDRESS OF REG. BEING TESTED 
2563 012122 104001 ERROR 1 s INCORRECT DATA RECEIVED 
Sees 012124 000207 RTS PC sRETURN TO BLT3 ROUTINE 
2566 
2567 
2568 
2569 
2570 
2571 ppertteerereererreeeeerertreretereeererereeeeeeeKeKeneeeeeeeeene 
2572 ;**OF THE TWENTY REGISTERS (4 IN RH11, 16 IN RPOS) ONLY 12 ARE 
2573 s*eCHECKED IN THE ABOVE TESTS 
2574 s**TWO ARE ALREADY TESTED (SERIAL NO. AND DRIVE TYPE) 
2575 s**THE OTHER 7 WHICH ARE RHDS1, RHLA, RHCC, RHEC1, RHECT, RHEC2 
4 s**ARE READ ONLY REGISTERS. ONE OR ZERO CANNOT BE WRITTEN 
*“*@eEeeeeeee eee eeeeeeeeeeeeteeeeterereteteeeeteeeektenkeeteeeeeeteneteee 


CZRIGDO,.RP04/5/6 DSKLS CTRLRI 
10-SEP-79 11:00 


CZRIGD.P11 
2579 
2580 
2581 
2582 
2583 
2584 
2585 
2586 
2587 
2588 
2589 012126 
2590 012130 
2591 012134 
2592 
2593 012142 
2594 
2595 
2596 
2597 
2598 
2599 012146 
2600 
2601 
2602 
2603 
2604 012152 
2605 012156 
2606 012162 
2607 012166 
2608 012170 
2609 
2610 012172 
2611 012174 
2612 012200 
2613 012204 
2614 012206 
2615 012212 
2616 012214 
2617 012216 
2618 
2619 012220 
2620 012222 
2621 012226 
2622 012230 
26235 012234 
2624 012236 
2625 
2626 012242 
2627 
2628 012244 
2629 
2650 
2631 
2652 
2635 
2034 012246 


000004 
012706 
012737 


004737 


005037 


001454 


011246 
042716 


112713 


012612 
000757 


022777 


001000 
000023 


042732 


002006 


000010 
051534 


010000 


177770 
001640 
000100 


024020 


. 
MACY11 30A(1052) 10-SEP-79 11:11 PAGE 58 
122 RHER3 = ERROR REGISTER #3 SEQ 0057 


Pp ewereeeeererrerereereererereereerereereterereereeeeeeereneeeTes 
*TEST 23 CONTROL AND STATUS 2 (RHCS 2) = ‘NED' 

“Sade THIS TESTS THE UNIT SELECT BITS #0-2 (US1-4) 

7 oe AND NON-EXISTENT DRIVE BIT #12 (NED) 


7e THE OTHER RHCS2 BITS ARE NOT TESTED HERE 


sp ereeeererererererererrrrrrererrereereteKeeereteeeereneeeeereereee 


1§123: SCOPE 


MOV WSTACK,SP sRESET STACK 
002032 MOV #TTNO,Q@M#TSTNM :THIS SAVES TEST NUMBER 
JSR PC, a#CLDISK sHERE IT 1S USED TO SETUP HARDWARE/ 
:CPU REGISTER CORRESPONDENCE 
>RI=RHCS1 
sR2=RHCS2 
>R3=RHDS1 
>R4G=RHERI 
CLR avERFLGS CLEAR ERROR FLAG 
:*SIMULATED DISK AREA WILL BE USED AS A TEMPORARY 
s*STORAGE TABLE FOR DRIVES PRESENT DETERMINED FROM 'NED’ = 0 IN RHCS2 
MOV #DISK,RI :LOAD TABLE POINTER 
MOV #8.,R0 LOAD TABLE LOCATION COUNTER 
1$: MOV #-1,(R1)4 sFILL 8 LOCATIONS WITH -1 
DEC RO COUNT DOWN ONE LOCATION 
BNE 1$ :BRANCH IF 8 NOT DONE 
CLR aR2 >SELECT UNIT NO.O (U2!U1!U0=0) 
MOV #8. 20 RELOAD TABLE LOCATION COUNTER 
MOV #DISK,RI RELOAD THE TABLE POINTER 
28: 1ST ars >READ A DRIVE REGISTER (RHER1) 
BIT #NED,aR2 :NON EXISTENT DRIVE BIT = 0 ? 
BEQ 3$ :YES...DRIVE PRESENT, CHECK THE TYPE 
7$: DEC RO :NO...DECREMENT DRIVE COUNT 
BEQ 4$ CHECK RESULTS IF 8 DRIVES DONE 
108: MOV aR2,-(SP) :PUT RHCS2 ON THE STACK 
BIC #*C7, (SP) sMASK ALL BUT THE UNIT NUMBER 
INC (SP) : INCREMENT THE UNIT NUMBER 
MOV Q#RHCS1,R3 :GET RHCS1 ADDRESS 
INC R3 :ADDRESS UPPER BYTE OF RHCS1 
MOVB #100,aR3 SET ‘TRE' IN RHCS1 
sWITHOUT ADDRESSING DRIVE 
MOV (SP)+,aR2 >RHCS2 HAS THE INCREMENTED UNIT 
swITH "NED' CLEARED - 
BR 2% TEST FOR NEXT DRIVE 
:*CHECK THE UNIT TYPE AND BUILD ‘NED' DERIVED UNITS TABLE 
167410 3%: CMP #24020, aRHDT :1S THIS A DUAL PORT RPOG ? | 
| 


CZRJGDO, wae DSKLS eh 


CZR 


JGD.P 


06 


MMNRNM ROTerr 


2 
2 
2 
304 
3 
3 
3 
3 


24 


012416 
012424 
012426 
012434 


10-SEP-79 1 


001425 
022777 
001421 


022777 


001411 
022777 


001401 


000732 


012746 
160016 
012621 


005300 


000716 


004037 
001754 
051534 
000010 
012370 
012416 
012534 


032777 
001043 
022737 
001413 


1:00 


020020 


024022 


020022 


024021 
020021 


000010 


043626 


000010 
001754 
051534 
001124 


001126 


020000 
177777 


MACY11 30A(1052) 
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167400 


6 5 
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CONTROL AND STATUS 2 (RHCS 2) = “NED' 


BEQ 
CMP 
BEG 


sENTER IN TABLE IF SO 
71S THIS A SINGLE PORT RPOS ? 


8$ 
#20020, @RHDT 
8$ ZENTER IN TABLE IF SO 


ae ieee aaa ee 


167370 
167360 


167350 
167340 


8$: 


BEQ 


BR 


MOV 
SUB 
MOV 


DEC 
BEQ 
INC 


71S THIS A DUAL PORT RPO6 ? 
ZENTER IN TABLE IF SO 

71S THIS A SINGLE PORT RPO6 ? 
ZENTER IN TABLE IF SO 


1S THIS A DUAL PORT RPOS ? 


~ penal @RHDT 
#20022. ,@RHDT 


© Sg hgemame 


8 TENTER IN TABLE IF SO 
#20021,@RHDT 718 THIS A SINGLE PORT RPOS ? 
8$ ENTER IN TABLE IF SO 

s eeeeeeeeereerrereererererereccerecereeeeeteeerereerereeerererre 
7% :NO RPOS FOUND SO CHECK NEXT UNIT 
#8. ,-(SP) ;LOAD MAX NO. OF DRIVES 
RO, (SP) > (SP) NOW HAS THE PRESENT DRIVE NO. 
(SP)+,(R1)¢ ;LOAD TABLE, INCR TABLE LOCATION & 

;RESTORE THE STACK TO WHERE I7 WAS 

RO ;DECREMENT THE DRIVE COUNT 
4$ ;CHECK RESULTS IF 8 UNITS CHECKED 
aR2 >SELECT NEXT UNIT 
2s 3G0 TEST IT 


>*COMPARE ‘NED* 


4$: 


BR 


DERIVED UNITS TABLE WITH THAT DERIVED USING RHAS IN 14 


RO, a#COMPAR ; COMPARE RESULTS 
sRHERIT/RHAS DERIVED DATA 
s"NED' TEST DATA 
sNO.OF WORDS TO COMPARE 
;RETURN FOR ERROR HEADER 
:RETURN FOR ERROR DATA 
sRETURN FOR GOOD COMPARISON (NEXT TEST) 


*SPECIAL "NED'/"RHAS' TABLE TYPE OUT ROUTINE (BYPASSES .SERRTYP AND 
>*HENCE IGNORES INHIBIT ERROR TYPEOUT SWITCH) 


5$: 


14$: 


166514 6$: 
001124 


ERROR 
MOV 
MOV 
MOV 
MOV 


22 

#8. ,R3 :LENGTH OF BOTH UNIT TABLES 
#UNITS,RI1 sADDRESS OF RHAS/RHER! UNITS TABLE 
#DISK,R2 sADDRESS OF “NED* RHCS2 UNITS TABLE 


(R1)*,a#$GDDAT LOAD RHAS UNIT NO.INTO “‘SGDDAT'’ AND 
; INCREMENT THE TABLE LOCATION 
(R2)*,a@#$BDDAT LOAD "NED" UNIT NO. INTO "‘SBDDAT" 
:@ INCR TABLE LOCATION 


#SW13,aSWR : INHIBIT ERROR TYPE OUTS ? 

13% YES...EXIT 

#-1 ,a#$GDDAT DOES “RWAS ae TABLE LOCATION = =! ? 
11$ TYES...DON'T TYPE IT = CHECK "NED' TABLE 


SEQ 0058 


5 
Spe ade DSKLS etna MACY11 30A(1052) 10-SEP-79 11:11 "PAGE 6 


CZRJGD.P 10-SEP-79 11:00 123 CONTROL AND STATUS 2 (RHCS %) - "NED' SEQ 0059 
2691 012436 104401 063034 TYPE ,SPACEB 3NO...TAB OVER PC COLUMN 
2692 012442 104401 063034 TYPE , SPACES TAB OVER THE TEST NO. COLUMN 
2693 012446 013746 001124 MOV Q#SGDDAT,-(SP) ;;SAVE @#SGDDAT FOR TYPEOUT 
2694 012452 104403 TYPOS 3:G0 TYPE=-OCTAL ASCII 
2695 012454 006 -BYTE 6 >; TYPE 6 DIGITS 
2696 012455 000 -BYTE 0 >; SUPPRESS LEADING ZEROS 
2697 012456 104401 063042 TYPE , SPACE2 SPACE OVER TO THE NEXT COLUMN 
ee 012462 000406 BR 12% :CHECK THE "NED' UNIT TABLE 
2700 012464 104401 063034 11$: TYPE , SPACES :TAB OVER THE PC COMUMN 
2701 012470 104401 063034 TYPE »SPACEB TAB OVER THE TEST NO. COLUMN 
site 012474 104401 063034 TYPE , SPACES : TAB OVER THE RHAS UNIT COLUMN 
2706 012500 022737 177777 001126 128: CMP #-1,a#$BDDAT :DOES "NED' UNIT TABLE LOCATION = - 1 ? 

2705 012506 001404 BEQ 9$ :YES...DON'T TYPE IT 

2706 012510 013746 001126 MOV a*$BDDAT,-(SP) 37 SAVE @#SBDDAT FOR TYPEOUT 

2707 012514 104403 TYPOS :60 agen ASCII 

2708 012516 006 -BYTE 6 >: TYPE 6 DIGIT 

ce 012517 000 -BYTE 0 >; SUPPRESS CEADING ZEROS 

2711 012520 

2712 012524 005303 DEC R3 :COUNT DOWN 2 TABLES LOCATION COUNTER 
2713 012526 001327 BNE 14$ :1f NOT = 0 TYPE OUT NEXT 2 LOCATIONS 
cris 012530 062706 000014 ADD #14,SP :ADJUST STACK FOR NO ‘POP’ & RTS FROM “"COMPART' 
2716 012534 13$: 

2717 

2718 

2719 

2720 


NJONSSONSS ENTS ENTS ONSEN SONS ON SPENT ENON: 
NEJENSSENS JONSSON SONS ON JONSSON SSN ONSEN: 
NsJON JONSON JON Jens JON JON ON SN SON ON: 


s7*N% JON 2/*N 7 ONT ON ONS / 
JONSSON SENT ON JONSON 
/*\: JONSSON SONS SONS ONS 


:*IN THE ABOVE TEST BITS 0,1,2, AND BI” 12 ARE TESTED 


z*1F THE “DRIVES PRESENT’’ TYPE OUT DOES NOT AGREE WITH WHAT WAS 
>*FOUND USING RHER1 & RHAS, THEN THE ERROR IS IN THE LOGIC 
s*FOR BITIZ(NED), OR UNIT SELECT(BIT 0 TO 2), GR RHERI, OR RHAS 


peeeeererereeereecereerererecerreeretereererterererereerrrertrrs? 
:*1T IS NOT POSSIBLE BY PROGRAM TO CHECK IF A NON-EXISTENT 
s*DRIVE 1S REALLY STANDING THERE OR NO*™ 


;eeeeeercereecereeereccereceeareereerererterererererrrererererte 


;*MANUALLY LOAD LOCATION ‘‘ERUNIT’’ WITH A UNIT NUMBER 
>*AND RESTART AT LOCATION “ERSTAR’’ THIS WILL LOOP FOR 
:*EVER DOING EXACTLY AS TEST ON THAT ONE UNIT 


7*T0 GET BACK TO MAIN DIAGNOSTIC HIT HALT SWITCH AND 
;*RESTART PROGRAM IN NORMAL MANNER 


| 
104401 001223 9$. TYPE ,SCRLF ;FOR THE NEXT LINE IN BOTH TABLES 
| 
| 
P/NOS NOL NOS NOS Ne NOs NOs Ness Nes Ness Nes Nes Nes Nes Ness \esi\esi ve 


on 


. 2 
CZRIGDO,RPO4/5/6 DSKLS CTRLR1 MACY11 30A(1052) 10-SEP-79 11:11 PAGE 61 
CZRIGD.P11 10-SEP-79 11:00 123 CONTROL AND STATUS 2 (RHCS 2) = ‘NED’ 


STING ENOA NO NOS NO Ne Ne Ne Ne Ne Nes Nes Nes Nes sN\ess\esi\esi\e 
STINGING NOE NON OZ NO NOS NOS NO Ne Nes Nes Nes Nes Nes Nes i\esi\e 


SEQ 0060 


CZRIGDO,RPO4/5/6 DSKLS ete 
CZRJGD.P11 1:00 


012534 


012536 
012542 


012546 
012554 


012656 


012664 
012670 
012674 


10-SEP-79 1 


000004 


004737 
005037 


ooo OCOOCOCOOCOOCOOCOOCOCOO 
sO as ss is i ss 


— = 
MOWER MEME PE POP Poff fh fe ferry 


013712 


042732 
002006 


177777 


000001 
177777 


000040 
001774 
001630 


177777 
042402 
001126 
001124 


000040 


001774 


5 
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167054 


167002 
166774 


001124 


001126 


¢2 
CONTROL AND STATUS 2 (RHCS 2) = “NED 


ppeeeeeerrereercererereeeeeeerereererreeeeeeeeereeeeneererererere 
*TEST 24 CONTROL AND STATUS 2 (RHCS2) = ‘CLR’ 
:*THIS TESTS THE UNIT SELECT BITS (US1=4) AND CLEAR BIT #5 (CLR) 


7*ALL REGISTERS ARE LOADED WITH ALL ONES EXCEPT BIT #0 AND #6 
>*WHICH ARE ‘'GO'' AND “INTERRUPT ENABLE'’, THEN 'CLR* IS GIVEN 
;*(RHDB 1S READ FIRST AS THIS WILL SET DTL IN RHCS2 AND 


>*SC AND TRE IN RHCS1.) 


;*ANOTHER CLR IS GIVEN THEN ALL OTHER REGISTERS ARE READ 


sr eeeerererererererererereerrerereerretenereereneatenereeeteeeeee 


TST24: SCOPE 


JSR PC ,a#CLDISK 
CLR a#ERFLGS 


7SET REGISTERS AND CLEAR 
;CLEAR ANY ERRORS 


s*FILL ALL POSSIBLE BITS WITH ONES 


MOV #177777, ,aRHDB 
MOV #177777 ,aRHwWC 
MOV #177777, aRHBA 
BIS #157010,aRHCS2 
MOV #1476, aRHCS1 
MOV #177777, ARHER1 
MOV #17437, aRHDST 
MOV #177777 ,ARHER2 
MOV #16277, aRHOF 
MOV #177777, aRHCA 
MOV #177777 ,ARHERS 
MOV #DMD ,ARHMR 

MOV #177777 ,AaRHMR 


BIS MCLR, @R2 
MOV Q#UNIT,AR2 
MOV WRHDB, RO 


7 *DATA BUFFER REGISTER 


;BUS ADDRESS REGISTER GETS 177777 
sWORD COUNT REGISTER GETS 177777 
;BUS ADDRESS REGISTER GETS 177777 
;CONTROL AND STATUS 2 GETS 157010 
CONTROL AND STATUS REGISTER/GETS 1476 
ERROR REGISTER! GETS 177777 
;DESIRED SECTOR TRACK 

ERROR REGISTER 2 

OFFSET REGISTER 

DESIRED CYLINDER 

sERROR REGISTER 3 
;MAINTENANCE REGISTER 
MAINTENANCE REGISTER 


;CLEAR ALL POSSIBLE BITS 
;REINSTATE UNIT NO. 
;RO CONTAINS ADDR. OF ADDR. OF REG. 


MOV #177777 ,a#$GDDAT;GOOD DATA FOR ERROR 


MOV ARO, a#REGADR 


MOV a(RO)+,a#$BDDAT 

CMP @#SGDDAT,a#$BDDAT; COMPARE GOOD WITH TEST DATA 
2% BRANCH IF GOOD 

;RHDB DID NOT HAVE ALL ONES 

sAFTER A CLR IN RHCS2 


;SET CLEAR AGAIN BECAUSE 


BEQ 
ERROR 1 

2$: BIS #CLR,AR2 
MOV Q#UNIT,aR2 


**WORD COUNT REGISTER 


REGISTER ADDRESS 
; TEST DATA 


READING RHDB AFTER CLEARING WILL 
SET DLT SC AND TRE 
;REINSTATE UNIT NO, 


SEQ 0061 





CZRIGDO, Nala DSKLS CTRLRI 
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CZRJ 


GD. 


P11 


013044 


013050 


013124 


013037 


004737 


012746 


004737 


012737 


004737 


012737 


004737 


012737 


177777 
001126 
177777 


013546 


000000 
001126 
000000 


013546 


000100 
001774 
001124 
001126 
001124 


013546 


004276 
001126 
004276 


013546 


000000 
001126 
000000 


013546 


017437 


MACY11 30A(1052) 
124 


001124 
001126 


001124 
001126 


001126 


001124 
001126 


001124 
001126 


001124 


3$: 


4$: 


5$: 


6$: 


7$: 


108: 


5 
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CONTROL AND STATUS 2 (RHCS2) = ‘CLR 


MOV #177777 ,a#$GDDAT :GOOD DATA FOR ERROR TYPEOUT 
MOV a(Rd)+ aVSBDDAT s TEST DATA 

CMP #177777 ,a#$BDDAT : COMPARE DATA 

BEQ 4$ sBRANCH IF GOOD 

JSR PC ,awERCS2C $ JUMP TO ERROR FOR CLR (BIT 5) 


>*BUS ADDRESS REGISTER 


MOV #0,a#SGDDAT :GOOD DATA FOR ERROR TYPEOUT 

MOV a(RO)+,a#$BDDAT ; TEST DATA 

CMP #0, a#$BDDAT ;COMPARE DATA 

BEQ 5$ ;BRANCH IF GOOD 

JSR PC ,a#ERCS2C ; JUMP TO ERROR FOR CLR (BIT 5) 
: IN RHCS2 


>*CONTROL AND STATUS 2 REGISTER 


MOV #100,-(SP) ; INCLUDE IR 
BIS Q@#UNIT, (SP) :SET UNIT NO. 
MOV (SP)+,@#$GDDAT ;GOOD DATA FOR TYPE OUT 


MOV a(RO)+,a#SBDDAT ; TEST DATA 

CMP a#SGDDAT , a#$BDDAT; COMPARE DATA 

BEQ 6$ ;BRANCH IF GOOD 

JSR PC ,a#ERCS2C : JUMP TO ERROR FOR CLR (BIT 5) 
> IN RHCS2 


>*CONTROL AND STATUS 1 REGISTER 


MOV #4276,a#$GDDAT ;GOOD DATA FOR ERROR TYPEOUT 

MOV a(RO)+,a#$BDDAT ; TEST DATA 

CMP #4276,a#$BDDAT ;COMPARE DATA 

BEQ 7$ >BRANCH IF GOOD 

JSR PC ,a#ERCS2C > JUMP TO ERROR FOR CLR (BIT 5) 
: IN RHCS2 


:tERROR 1 REGISTER 


MOV #0, a#S$GDDAT :GOOD DATA FOR ERROR TYPEOUT 

MOV a(RO)+,a#$BDDAT ; TEST DATA 

CMP #0,a#$BDDAT ; COMPARE DATA 

BEQ 10$ sBRANCH IF GOOD 

JSR PC ,amERCS2C > JUMP TO ERROR FOR CiR (BIT 5) 
: IN RHCS2 


*DESIRED SECTOR/TRACK REGISTER 


MOV #17437 ,asSGDDAT :GOOD DATA FOR ERROR TYPEOUT 


SEQ 0062 


5 
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CZRIGD.P11 10-SEP-79 11:00 124 CONTROL AND STATUS 2 (RHCS2) = “CLR” 
2862 013132 013037 001126 MOV @(RO)+,a#SBDDAT ; TEST DATA 
2863 013136 022737 017437 001126 CMP #17437, a#SBDDAT ;COMPARE DATA 
2864 013144 001402 BEQ 118 ;BRANCH IF GOOD 
2865 013146 004737 613546 JSR PC ,a#ERCS2C ; JUMP TO ERROR FOR CLR (BIT 5) 
2866 7 1N RHCS2 
2867 
2868 s*ERROR 2 REGISTER 
i 
2871 013152 012737 000000 001124 118%: MOV #0 ,a#$GDDAT ;GOOD DATA FOR ERROR TYPEOUT 
2872 013160 013037 001126 MOV @(RO)+ ,a#SBDDAT ; TEST DATA 
2873 013164 022737 000000 001126 CMP #0,a#$BDDAT ;COMPARE DATA 
2874 013172 001402 BEQ 12% ;BRANCH IF GOOD 
2875 013174 004737 013546 JSR PC ,a#ERCS2C ; JUMP TO ERROR FOR CLR (BIT 5) 
2876 7 IN RHCS2 
2877 
2878 tOFFSET REGISTER 
th 
2881 013200 012737 116000 001124 12$: MOV #116000 ,a#$GDDAT ;GOOD DATA FOR ERROR TYPEOUT 
2882 013206 013037 001126 MOV a(RO)+,a#$BDDAT ; TEST DATA 
2883 013212 022737 116000 001126 CMP #116000 ,a#$BDDAT ;COMPARE DATA 
2884 013220 001402 BEQ 138 ;BRANCH IF GOOD 
2885 013222 004737 013546 JSR PC ,awERCS2C 7 JUMP TO ERROR FOR CLR (BIT 5) 
2886 7 IN RHCS2 
2887 
2888 ;*DESIRED CYLINDER ADDRESS REGISTER 
8 
2891 013226 012737 001777 001124 138: MOV #1777, a#$GDDAT ;GOOD DATA FOR ERROR TYPEOUT 
2892 013234 013037 001126 MOV @(RO)+,@#SBDDAT ; TEST DATA 
2893 013240 022757 001777 001126 CMP #1777, a#$BDDAT ;COMPARE DATA 
2894 013246 001402 BEQ 14% ;BRANCH IF GOOD 
2895 013250 004737 013546 JSR PC ,a#ERCS2C ; JUMP TO ERROR FOR CLR (BIT 5) 
2896 > IN RHCS2 
2897 
2898 s*ERROR 3 REGISTER 
st 
2901 013254 012737 000000 001124 148: MOV #0 ,a#SGDDAT ;GOOD DATA FOR ERROR TYPEOUT 
2902 013262 013037 001126 MOV @(RO)+,a#$BDDAT ; TEST DATA 
2903 013266 022737 000000 001126 CMP #0,a#SBDDAT ; COMPARE DATA 
2904 013274 001402 BEQ 15$ BRANCH IF GOOD 
2905 013276 004737 013546 JSR PC ,a#ERCS2C 7; JUMP TO ERROR FOR CLR (BIT 5) 
2906 7 1N RHCS2 
2907 
5309 tATTENTION SUMMARY REGISTER 
2910 013302 013037 001126 15$: MOV @(RO)+ ,a#SBDDAT GET RHAS CONTENTS 
2911 013306 012737 000000 001124 MOV #0 ,a#$GDDAT ;GOOD DATA FOR ERROR TYPE OUT 
2912 013314 123737 001124 001126 CMPB O#S$GDDAT ,a#$BDDAT ; COMPARE FOR RHAS 
2913 013322 001402 BEQ 16$ :BRANCH IF GOOD 
2914 013324 004737 013546 JSR PC ,aMERCS2C ; JUMP TO ERROR FOR CLR (BIT 5) 
ou 7 IN RHCS2 
6 


2917 S*MAINTAINABILITY REGISTER 


CZRIGDO,RPO4/5/6 DSKLS CTRLRI 
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CZRIGD.P11 


013432 


013436 
013444 
013450 
013456 
013460 


004737 


013737 


004737 


013737 


004737 


012737 


004737 


000400 
001126 
000400 


013546 


000600 
001126 
001100 
000600 


013546 


002010 
001126 
002010 


013546 


002012 
001126 
002012 


013546 


000000 
001126 
000000 


013546 
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001124 
001126 


001124 


001124 
001126 


001124 
001126 


001124 
001126 


16$: 


17$: 


208: 


21$: 


22%: 


a 5 
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¢5 
CONTROL AND STATUS 2 (RHCS2) = ‘CLR’ 


MOV #400 ,a#$GDDAT 
MOV @(RO)+ ,a#SBODAT 
CMP C pegameepese~ 


JSR PC ,a#ERCS2C 


stDRIVE STATUS REGISTER 
MOV #600 ,a#$GDDAT 
MOV a(RO)+,-(SP) 
MOV (SP) ,a#$BDDAT 
BIC #VV!PROG, (SP) 
CMP #600, (SP)+ 

208 


JSR PC ,a#ERCS2C 
:*DRIVE TYPE 


MOV O#SAVDT ,AMSGDDAT 
MOV a(RO)+,a#S$BDDAT 
CMP Q#SAVDT ,A#SBDDAT 


21% 
JSR PC ,awERCS2C 
;*SERIAL NUMBER REGISTER 


MOV @4SAVSN ,OMSGDDAT 
MOV a(RO)+ ,a#$BDDAT 
CMP O#SAVSN ,@#SBDDAT 


22% 
JSR PC ,awERCS2C 


3;*ECC1 POSITION 


MOV #0 ,a#$GDDAT 
MOV a(RO)+ ,as$BDDAT 
CMP = 


2 
JSR PC ,a#ERCS2C 


7*ECC2 PATTERN 


soon we FOR ERROR TYPEOUT 
sCOMPARE DATA 

: BRANCH IF GOOD 

7 JUMP TO ERROR FOR CLR (BIT 5) 
IN RHCS2 


;GOOD DATA FOR ERROR TYPEOUT 
GET RHDS1 

; TEST DATA 

;CLEAR VV AND PROG 

; COMPARE DATA 

;BRANCH IF GOOD 

> JUMP TO ERROR FOR CLR (BIT 5) 
; IN RHCS2 


;GOOD DATA FOR ERROR TYPEOUT 


TEST DATA 


; COMPARE DATA 


;BRANCH IF GOOD 


; JUMP TO ERROR FOR CLR (BIT 5) 
IN RHCS2 


;GOOD DATA FOR ERROR TYPEOUT 


7 TEST DATA 


; COMPARE DATA 
;BRANCH IF GOOD 
; JUMP TO ERROR FOR CLR (BIT 5) 
7 IN RHCS2 


;GOOD DATA FOR ERROR TYPEOUT 
; TEST DATA 


;COMPARE DATA 

> BRANCH lt GOOD 

; JUMP TO ERROR FOR CLR (BI’ 5) 
IN RHCS2 


SEQ 0064 


Cl 
(2 


CZRIGDO,RPOG/5/6 DEKLS CTRLRI 
10-SEP-79 11:00 


CZRIGD.P11 


013540 


013542 


013544 
013544 


005720 


005720 


000405 


014037 
104001 


005720 
000207 


000000 
001126 
000000 


013546 


042402 


MACY11 30A(1052) 
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001124 
001126 


238: 


248: 


25$: 


268: 


ERCS2C: 


10-SEP-79 


5 
11:11 NPAGE 6 


CONTROL AWD STATUS 2 (RHCS2) = “CR” 


#0 ,a#S$GDDAT 
a(RO)+, oo age 


#0 ,a#$BD 
24 


PC ,a#ERCS2C 


> *LOOK-AHEAD REGISTER 


TST 


(RO) + 


;GOOD DATA FOR ERROR TYPEOUT 
sTEST DATA 

;COMPARE DATA 

> BRANCH If GOOD 

; JUMP TO ERROR FOR CLR (BIT 5) 
: IN RHCS2 


;AS THE LOOK-AHEAD REG. CANNOT BE PREDICTED 
;AFTER AN INIT IT IS NOT CHECKED 


> *CURRENT CYLINDER ADDRESS REGISTER 


TST 


MOV 
ERROR 


TST 
RTS 


(RO)+ 


TS$T25 


-(RO), 
1 


(RO)+ 
PC 


@#REGADR 


;AS THE CURRENT REG. CANNOT BE PREDICTED 
sAFTER A INIT IT IS NOT CHECKED 


BRANCH OVER J5R 


FAILING REGISTER ADDRESS 
CLR (BIT 5) IN RHCS2 DID 
:NOT CLEAR APPROPIATE BITS 
;OR CLEARED EXTRA BITS 


[UNDO -(RO) FOR BAD DATA 
RETURN TO TEST ABOVE 


SEQ 0065 


ee 


B 6 
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CZRIGD.P 10-SEP-79 11:00 124 CONTROL AND STATUS 2 euced) - "CLR SEQ 0006 C, 

3003 

004 
3005 PleeererereerereerreeeeerererererererereretrerereeeetererrereTTTe 
3006 “STEST 25 PACK ACKNOWLEDGE COMMAND TEST 
3008 yee THE PACK ACKNOWLEDGE COMMAND WILL BE LOADED INTO RHCS1 WITH GO 
3009 tee THEN ALL REGISTERS WILL BE CHECKED 
3010 lee RH CLEAR WILL BE GIVEN 
ers pee THEN ALL REGISTERS WILL BE CHECKED 
3013 sy eteteeererererererereeererreeirereteetererereneneneeeKeneereerenee 
3014 013560 000004 1$125: SCOPE 
3015 013562 012706 001000 MOV WSTACK, SP RESET STACK 
3016 013566 012737 000025 002032 MOV HTTINO.Q#TSTNM THIS SAVES TEST NUMBER 
3018 013574 004737 042732 JSR PC ,a#CLDISK :INIT AND SET UP GENERAL CPU/DEVICE 
3019 “REGISTER CORRESPONDENCE AND UNIT NO. 
3020 013600 012777 000001 166052 mov #DMD , ARHMR “SET DIAGNOSTIC MODE 
3021 013606 013777 002102 166024 MOV @#PKACK.@RHCS1 =LOAD “PACK ACKNOWLEDGE COMMAND'' INTO RHCS1 
3023 <*#SAVE REGISTERS FOR COMPARISON AFTER "GO" IS ISSUED 
3024 013614 004037 043424 JSR RO, a# SAVER = SAVE 
3025 013620 001632 RHWC FROM 
3026 013622 003160 REINTO :10 
3027 013624 000023 19, “NUMBER OF REGISTERS SAVED 
3039 
5030 013626 052777 000001 166004 BIS #60, aRHCS1 ISSUE °GO' TO PACK ACKNOWLEDGE COMMAND 
3032 <*CHANGE SAVED REGISTERS TO EXPECTED VALUES 
3058 013634 052737 000100 003210 BIS #VV AMREINTO* 30 :SAVED RHDS1 

4 

3035 :*AFTER GO HAS BEEN GIVEN TO PACK ACKNOWLEDGE COMMAND 
3036 SeSAVE REGISTERS AGAIN SO THAT COMPARISONS CAN 
3037 ‘BE DONE 
3038 
3039 013642 004037 043424 JSR RO, a#SAVER : SAVE 
3040 013646 001632 RHWC : FROM 
3041 013650 002114 WRF ROM 
3042 013652 000023 19, :NUMBER OF REGISTERS SAVED 

4 
5044 :*#AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
3045 SeOPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
3046 :*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
3047 013654 113737 003205 002141 MOVB — @#WREINTO*+25a#WRFROM+25:SAVE UPPER RHAS 

Ly “ 
3049 % 
3050 :* COMPARE REGISTERS BEFORE PACK ACKNOWLEDGE COMMAND 
ed ;*wW1Th AFTER GO | 
3053 013662 004037 043626 JSR RO. a#COMPAR : COMPARE 
3054 013666 003160 RE INTO “GOOD BUFFER 
3055 013670 002114 WRF ROM “TEST BUFFER 
3056 013672 000023 19, “NUMBER 
3057 013674 013702 1$ “RETURN FOR ERROR 
3058 013676 013702 1$ : SAME 


sts os 


C 6 
ee DSKLS CTRLRi = MACYI1 2 10-SEP-79 11:11 PAGE 68 
J 


GD.P11 10-SEP-79 11:00 PACK ACKNOWLEDGE COMMAND TEST 
en 013700 613722 2$ ;RETURN FOR GOOD COMPARISON 
3061 013702 013705 047736 1$: MOV O#ERWORD,RS ;GETTING READY TO INDEX 
3062 013706 060505 ADD R5,R ;DOUBLE ERROR WORD 
Spee 013710 016537 001630 042402 MOV RHWC-2(R5) ,@MREGADR ; FAILING REGISTER ADDRESS 
3065 013716 104001 ERROR 1 ; IMPROPER REGISTER CHANGE 
3066 ;AFTER PACK ACKNOWLEDGE COMMAND 
3067 ;WITH GO IS GIVEN 
Hoe] 013720 000207 RTS PC RETURN TO COMPARISON 


3070 013722 2$: CONTINUE WITH THE NEXT TEST 





Oo 


D 6 
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SEQ 


014154 012737 000400 003206 MOV #400, ,a#REINTO*26;SAVED RHMR 





CZRIGD.P 10-SEP-79 11:00 125 PACK ACKNOWLEDGE COMMAND [EST 
3071 
3072 
3073 
3074 sy etreeerrererrerereerertrererererererereeeeeteeeReeeeNreReee Kees 
le Z*TEST 26 UNIBUS INI? TEST 
3077 pee ALL POSSIBLE REGISTER BITS ARE FILLED WITH ONES 
3078 pee A RESET COMMAND IS GIVEN 
deg ;*e ALL REGISTERS ARE CHECKED 
3081 ps eeeeeeeeerrerererrrerrereerererererereKereneeeNeereerereeeeeres 
3082 013722 000004 TST26: SCOPE 
3083 013724 012706 001000 MOV #STACK,SP RESET STACK 
3084 013730 012737 000026 002032 MOV #TINO,Q#TSTNM ;THIS SAVES TEST NUMBER 
3085 013736 004737 042732 JSR PC, a#CLDISK : INIT AND SET UP GENERAL CPU/DEVICE 
soe? REGISTER CORRESPONDENCE 
3080 :*FILL ALL POSSIBLE REGISTER BITS WITH ONES 
3090 013742 012777 177777 165662 MOV #177777,aRHWC =;WORD COUNT REGISTER GETS 177777 
3091 013750 012777 177777 165656 MOV #177777,aRHBA  ;BUS ADDRESS REGISTER GETS 177777 
3092 013756 052777 157010 165652 BIS #157010,aRHCS2 ;CONTROL AND STATUS 2 GETS 177430 
3093 013764 012777 001476 165646 Mov #1476, aRHCS1 sCONTROL AND STATUS REGISTER 1 GETS 21476 
3094 013772 012777 177777 165642 MOV #177777,A@RHER1 ;ERROR REGISTER! GETS 177777 
3095 014000 012777 017437 165636 MOV #17437,@RHDST  ; DESIRED SECTOR TRACK 
3096 014006 012777 177777 165632 MOV #177777, ARHER2 ;ERROR REGISTER 2 
3097 014014 012777 016277 165626 MOV #16277, aRHOF sOFFSET REGISTER 
3098 014022 012777 000777 165622 MOV #777,@RHCA DESIRED CYLINDER 
3099 014030 012777 177777 165616 MOV #177777, @RHER3 :ERROR REGISTER 3 
3100 014036 012777 000001 165614 MOV #DMD , @RHMR MAINTENANCE REGISTER 
io! 014044 012777 177777 165606 MOV #177777,aRHMR  : MAINTENANCE REGISTER 
3103 >*BEFORE RESET SAVE REGISTERS IN READ INTO BUFFER 
31046 014052 004037 043424 JSR RO, a#SAVER 7 SAVE 
3105 014056 001632 RHWC : FROM 
3106 014060 003160 REINTO :10 
ye 014062 000021 i. s NUMBER 
3109 :*GIVE RESET AND REINSTATE UNIT NUMBER 
3110 014064 000005 RESET 
3111 014066 004737 055310 JSR PC ,a#STKINT INITIALIZE TK 
ah 014072 053777 001774 165536 BIS Q#UNIT,ARHCS2 
3114 :*CHANGE ORIGINAL SAVED REGISTERS TO EXPECTED VALUES AFTES RESET 
3115 014100 005037 003162 CLR a#REINTO+2 >CLEAR SAVED RHBA 
3116 014104 013746 001774 MOV a#UNIT,-(SP) :GET UNIT NUMBER FRO SAVED RHCS2 
3117 014110 052716 000100 BIS WIR, (SP) INCLUDE IR 
3118 014114 012637 003164 MOV (SP)+, @MREINTO+4 ;SAVED RHCS2 
3119 014120 012737 004276 003166 MOV WDVA'RDY! 76, a#REINTO*6 ; SAVED RHCS1 
3120 014126 005037 003170 CLR a#REINTO+10 7SAVED RHER] 
3121 014132 005037 003174 CLR Q#REINTO+14 sSAVED RHER2 
3122 0146136 012737 116000 003176 MOV #116000, ,a#REINTO+16 ;SAVED RHOF 
3123 014144 005037 003202 CLR Q#REINTO+22 ;SAVED RHERS 
zie 014150 105037 003204 CLRB A#REINTO+24 SAVED RHAS 
1 
3126 


falas 


CZRIGDO ,RPO4/5/6 DSKLS ah 


CZRIGD.P11 


AWA AAA NOW 
ek tt tt ot 
Ww 
uw 


3140 


MAA AAMANUTT 
DONO WE WR 


014206 


014212 
014216 
014220 
014222 


014224 


014232 
014236 
014240 
014242 
014244 
014246 
014250 


014252 
014256 
014260 
014266 


014270 
014272 
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000021 


113737 


004037 


014272 


013705 
060505 
016537 
104001 


000207 


00321° 
176777 
000700 
003210 


003216 
003220 


043424 


003205 002141 


043626 


047736 
001630 042402 


MACY11 30A(1052) 
126 


4$: 


1$: 


23: 
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UNIBUS INIT TEST SEQ 0069 


;*CHANGE RHDS1 WITHOUT alte PROG BIT 
MOV Q#REINTO*30,-(SP) ;GET RHDS1 

BIC #*CPROG, (SP) ;CLEAR EVERYTHING EXCEPT PROG 

BIS #700, (SP) :SET EXPECTED BITS = "DPR', "DRY' & ‘vv" 


MOV (SP)+,@#REINTO+30;SAVED RHDS1 
CLR @#REINTO+ 36 ;SAVED RHEC] 
CLR a#REINTO+40 3 SAVED RHEC2 


;TAFTER RESET, SAVE REGISTERS FOR COMPARISONS 10 BE DONE 


JSR RO, aMSAVER 7 SAVE 
RHWC >FROM 
WRF ROM 10 

Sis ; NUMBER 


;*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
;*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
;*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
MOVB O#REINTO+25 ,aM#WREROM+25;SAVE UPPER RHAS 


> *COMPARE gerbe. BEFORE spade WITH REGISTERS AFTER RESET 
JSR 


RO, a#COMPAR ; COMPAR 
REINTO ;GOOD BUFFER 
WRF ROM :TEST BUFFER 
Le ; NUMBER 
1$ ;RETURN FOR ERROR 
1$ ; SAME 
2$ RETURN FOR GOOD COMPARISON 
MOV A#ERWORD,RS :GETTING READY TO INDEX 
ADD R5,R5 ;DOUBLE ERROR WORD 
MOV RHWC=2(R5), @#REGADR FAILING REGISTER ADDRESS 
ERROR 1 REGISTER CONTENTS AFTER 


A RESET THAT IS AN 
;UNIBUS INITIALIZE CAUSED 
AN IMPROPER REGISTER CHANGE 
RTS PC ;RETURN TO COMPARISON 
RETURN TO POINT ON GOOD COMPARISON 


oOo 
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3170 


wr 


AAI A A A AAA AWWA Ww 
tt et et 
co 
oomo~n ~ 


S333S2SFF5 
_ Ww 


014272 
014274 
014300 


014306 
014312 
014314 
014320 
014320 


014324 


014356 


014360 


014366 
014370 
014374 


014376 


014402 
014406 


014414 
014416 
014422 
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000004 
012706 
012737 


005737 
001402 
000137 
004737 


017700 
013746 


104011 


022737 
001403 


010137 
104011 


012711 


001000 
000027 


002040 
014450 


042732 
165300 
001774 
100100 
042336 
001712 


001122 


144200 


001122 


040000 


042336 
004200 


001122 
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002032 


001714 


001714 


ae. . 
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YNIBUS INIT TEST SEQ 0070 


~-SBTTL SILO TESTS 


*“-@eetererererererererererereerrerereereerteeretereretererereeeeee 


s*TEST 27 SILO TST 1 


THIS TESTS THE SILO BUFFER IN THE RH11 CONTROLLER 

A READ IS ATTEMPTED FROM AN EMPTY SILO 

DATA LATE (DLT) (RHCS2), TRANSFER ERROR (TRE) (RHCS1), 
SPECIAL CONDITION (SC) (RHCS1) SHOULD SET 

THEN LOADING ‘‘l"' INTO TRE SHOULD CLEAR DLT, TRE AND SC 


-@eheekeretererterreretereerertereterereerereeteeeeeeeetetertereteeeerere 


18127: 


308: 


1$: 


2$: 


SCOPE 

MOV WSTACK ,SP ;RESET STACK 

MOV WTTNO,Q#TSTNM ©; THIS SAVES TEST NUMBER 

;*CHECK TO SEE IF THE PROGRAM 1S RUNNING WITH AN RH70 

TST a#RH70 TEST FLAG FOR RH70 CONTROLLER 

BEQ 30$ SIF FLAG = 1, THIS TEST IS SKIPPED 

JMP 1S130 :JUMP TO NEXT TEST ------------------- 
:1F FLAG = 0, DO THIS TEST 

JSR PC,CLDISK ;CLEAR DISK AND LOAD R'S 

mov @RHDB RO ;READ FROM EMPTY SILO 

MOV QWUNIT,-(SP) GET UNIT NO. IN 


BIS #WOLT!IR, (SP) ;GET DATA LATE BIT AND IR 
JSR PC ,a#PUTREG ;SAVE REGISTERS 


CMP (SP)+,aa#CS2 31S DATA LATE BIT UP? 

BEQ 1$ :1f YES BRANCH 

MOV R2,a#SBDADR :1F NOT STORE FAILING REG. 
ERROR 11 ;RHCS2 DID NOT HAVE DLT 


;RHCS2 SHOULD HAVE ONLY 
;DLT AND UNIT NUMBER (BIT 0-2) 
;ALL OTHER BITS SHOULD 


;BE 0 
CMP @MSC'TRE!RDY'DVA,@#CS1 31S SPECIAL seated abies TRANSFER ERROR 
s AND READY UP? 


BEQ 2$ :1f YES BRANCH 
MOV R1,a#$BDADR :1f NOT STORE FAILING REG. 
ERROR 11 ;RHCS1 DID NOT HAVE SC, DVA 


;TRE AND RDY. AFTER A 
;READ FROM EMPTY SILO ONLY 
; THESE BITS SHOULD BE UP 
;ALL OTHERS SHOULD BE 0 


MOV #TRE,@R1 ;CLEAR ERROR BITS BY MOVING 
;ONE INTO TRE IN RHCS1 
JSR PC ,a#PUTREG ;SAVE REGISTERS 
CMP #RDY!DVA,aaC(S1 :ALL BITS BUT RDY AND DVA SHOULD 
BEQ 3$ BRANCH IF YES 
MOV R1,a#$BDADR STORE FAILING ADDRESS 
ERROR 11 ;AFTER A ONE IN TRE ONLY 


an 


CZRIGDO,RPO4/5/6 DSKLS gine 
CZRIGD.P11 1:00 


014424 
014430 
014434 
014440 
014442 
014446 


10-SEP-79 1 


013746 
052716 
022637 
001403 
010237 
104011 


001774 
000100 
001712 


001122 


MACY11 30A(1052) 
127 


3$: 


SILO T 
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SEQ 0071 
;READY AND DVA SHOULD BE SET IN 


sRHCS1 
Q#UNIT,-(SP) 
WIR, (SP) 
(SP)+,aa#CS2 sRHCS2 SHOULD HAVE JR AND UNIT ONLY 
TS$130 ;BRANCH IF YES 
R2,a#$BDADR ;STORE FAILING ADDR 
11 AFTER A ONE IN TRE ONLY 


aon 





joe oe DSKLS gin 


014450 
014452 
014456 


014464 
014470 
014472 
014476 


014476 


014502 
014506 
014512 
014516 
014522 
014524 
014530 


014532 
014536 
014544 
014552 
014554 
014556 
014560 
014564 
014570 
014574 
014600 
014602 
014606 


014610 
014614 
014620 


10-SEP-79 1 


000004 
012706 
012737 


005737 
001402 
000137 


004737 
013746 


104011 


005077 


104011 


017700 
017705 
022700 


001000 
000030 


002040 
014676 


042732 
001774 
000100 
042336 
001712 


001122 


165072 
177777 
001636 


001774 


001712 
0013122 


165014 
165010 
000000 


H 6 
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127 $1L0 1 


002032 


165064 
014554 


pp eteeeererrrrrerrerereerrererrereretererererereeenetareneeenerere 


s*TEST 30 SILO TEST 2 


ee THIS TESTS THE IR AND ‘‘OR'' BITS OF RHCS2 
;*e Al THE BEGINNING IR SHOULD BE SET AND ‘'OR'’ RESET 
;ee LOADING 0 IN SILO RESETS IR FOR ONLY 2 MICRO SECONDS 
5ee THIS TIME CANNOT BE CHECKED BUT IT 1S CHECKED TO SEE IF 
;ee 1T DOES GO DOWN OR NOT 
ee THEN ALL 1 IS LOADED IN SILO ‘‘OR’’ SHOULD BECOME SET 
5 ee IN 30 MICRO SECONDS AGAIN TIME IS NOT CHECKED 
;ee "OR'' SHOULD BE SET 
;ee THE OUTPUT FROM THE SILO SHOULD BE 0 AND ALL ONES 
Sp eeeeeeerererrerererererereererrrerereneneneneneeeereeeeereneres 
1S130: SCOPE 
MOV @STACK,SP RESET STACK 
MOV #TINO,Q@#@TSTNM THIS SAVES TEST NUMBER 
:*CHECK TO SEE If THE PROGRAM 1S RUNNING WITH AN RH70 
TST a#RH70 : TEST FLAG FOR RH70 CONTROLLER 
BEQ 30% s1F FLAG = 1, THIS TEST IS SKIPPED 
JMP 18131 > JUMP TO NEXT TEST oeeennnnnnn------- ) 
30$: sI1F FLAG = 0, DO THIS TEST 
JSR PC,CLDISK sCLEAR REGISTERS LOAD R'S 
MOV Q#UNIT,-(SP) 
BIS #IR, (SP) 
JSR PC ,a#PUTREG sSAVE REGISTERS 
CMP at eat 71R SHOULD BE SET ‘OR’’ RESET 
BEQ 
MOV R2,a#$BDADR sFAILING REGISTER RHCS2 
ERROR TT, sRHCS2 DOES NOT HAVE IR 
‘ 3SET, UNIT NO. SET AND 
sALL OTHER BITS 0 
1$: CLR @RHDB sLOAD DATA BUFFER (SILO) WITH 0 
MCV #-1,aRHDB sLOAD SILO WITH ALL ONES 
MOV @#RHCS2 082% sADDRESS OF RHCS2 
WAT sWALT TRAP 
2$: — sADDRESS OF RHCS2 
0 
3$: MOV Q#UNIT,-(SP) ; 
BIS #OR'IR, (SP) :1R AND ‘OR’ 
JSR PC ,a#PUTREG ;SAVE REGISTERS 
CMP Pie aactens :1R AND ‘‘OR'' SHOULD BE SET 
BEQ 4 
MOV R2,a#$BDADR sSAVE RHCS2 ADDR. FAILING REG. 
ERROR 11 "OR" IN RHCS2 SHOULD BE 
3 SET — WlTH IR AND 
;UNIT ; 
4$: MOV @RHDB,RO :SAVE SILO DATA SHOULD BE 0 


MOV Q@RHDB,RS :SAVE SILO DATA SHOULD BE ALL 1 
cme #0,R0 FIRST WORD 0? x¥Z2 DO MORE TEST 


SEQ 0072 


aon 


CZRIGDO ,RPOG/5/6 DSKLS CTRLRI 
10-SEP-79 11:00 


CZRJGD.P11 


014624 
014626 


014632 
014636 
014644 


014646 


014666 
014674 


001410 
005037 


010037 


001124 
001126 
001630 
177777 
177777 


001126 
001530 


MACY11 


042402 


001124 
042402 


30A(1052) 
130 


5$: 


10- 
SILO 


BEQ 
CLR 


MOV 
MOV 
ERROR 


CMP 
BEQ 
MOV 
MOV 
MOV 
ERROR 


1 6 
SEP=79 11:11 PAGE 74 
TEST 


2 


5% ;BRANCH IF YES 
@#SGDDAT ;GOOD DATA 
RO ,a#SBDDAT ;BAD DATA 


@FRHDB,APREGADR ; SAVE RHDB FAILING REG. 
1 7$1L0 DID NOT HAVE THE FIRST WORD 
;“‘O"' WHEN "‘OR"’ WAS SET 


#-1,R5 ;SECOND WORD ALL ONES? 
T$131 ;BRANCH IF YES 
#-1,a#$GDDAT ;GOOD DATA 

R5 ,a#$BDDAT ;BAD DATA 


@#RHDB,A#REGADR ;SAVE RHDB FAILING REG. 

1 7SI1LO0 DID NOT HAVE THE SECOND 
;WORD OF ALL ONES WHEN ‘‘OR™’ 
WAS SET 


SEQ 0073 


C 
Ci 


CZRJGDO,RPO4G/5/6 DSKLS ster 
CZRIGD.P11 1:00 


oo 


OntUVFwn—-O0OMW 


014676 
014700 


014706 
014712 
014714 
014720 


014720 


10-SEP-79 1 


000004 
012737 


005737 
001402 
000137 


012700 


001002 


000031 


002040 
015136 


051534 
000103 


042732 


000102 
164654 


001774 
000200 
042336 
001712 


001122 


002006 
051534 
000102 
164576 


051534 
000102 


001126 
001124 
001630 
002006 


MACY11 


002032 


042402 


30A( 1052) 
130 


10- os 
SILO TEST 2 


11:11 


. o>. 
PAGE 75 


py ereererererereereererererereeerererereereereeeeneteneerenererere 


s*TEST 31 


THIS TESTS SILO BUFFER BY FILLING IT WITH A ost FROM 
0 TO 65 AND THEN CHECKING IF IR 1S DOWN AND * 
1S HIGH AND COMPARING THE SILO OUTPUT. 


$1L0 TEST 3 


;p;eeeeerrrrrerrereeerererereerereeeeerenenenereeeeteeeerereneeeee 


18131: 


30$: 


1$: 


2$: 


3$: 
4$: 


5$: 


SCOPE 
MOV 


> *CHECK 


#TTNO,a#TSTNM 


THIS SAVES TEST NUMBER 


TO SEE If THE PROGRAM IS RUNNING WITH AN RH70 


a#RH70 
30% 
1$132 


#SILOTB,RO 
a 5 


PC ,a#CLDISK 
RO 


#66.,R5 
RO, @RHDB 
RO 


R5 


2$ 
@#UNIT,-(SP) 
WOR, (SP) 

PC ,a#PUTREG 
(SP)+,a#CS2 


3$ 
a 


a#ERFLGS 
#SILOTB,RO 
R5 


#66., 
@RHDB, (RO) + 
R5 


4$ 
#SILOTB,RO 
#60.,R5 

~ (SP) 

(SP) ,(RO)+ 
7$ 


-(RO) ,a#$BDDAT 
(SP) ,a#$GDDAT 
@#RHDB ,A#REGADR 
a#ERFLGS 

6$ 


; TEST FLAG FOR RH70 CONTROLLER 


:1F FLAG = 1, THIS TEST 1S SKIPPED 
: JUMP TO NEXT TEST ------------------- ) 
;1F FLAG = 0, DO THIS TEST 


; TABLE POINTER 

; COUNTER 

;CLEAR TOTAL TABLE 

; COUNT 

:BRANCH IF NOT COMPLETELY CLEAR 
;CLEAR ALL REG. 


; COUNT 

;LOAD SILO WITH COUNT FROM 0 10 65 
;NEXT COUNT 

31S 66 LOADS DONE? 

;BRANCH IF NOT. 


SAVE REGISTERS 

;‘"OR'’ SHOULD BE SET IR RESET 
BRANCH IF YES 
;SAVE RHCS2 ADR. 
7"‘OR"' WAS NOT SET, 
RESET AFTER SILO WAS FULL 
;POINTER 


FAILING REG, 
IR WAS NOT 


; COUNTER 

ay SILO 

; COUNT 

:BRANCH IF 66 NOT DONE 
POINTER 


;BRANCH IF GOOD 

;BAD DATA 

;GOOD DATA 

sFAILING REG. RHDB 
31S THIS FIRST ERROR? 
7 1f NOT BRANCH 


K 6 

CZRIGDO,RPO4/5/6 DSKLS oy ae MACY11 30A(1052) 10-SEP-79 11:11 PAGE 76 C] 
CZRJGD. Pll 10-SEP-79 11:00 131 S1LG TEST 3 SEQ 0075 C2 

3357 015100 104012 ERROR 12 : THESE TWO ERROR CALLS ARE FOR 

3358 015102 000401 BR 64% ;BRANCH TO AVOID PRINTING NEXT ERROR 

3359 015104 104013 6$: ERROR 13 >THE SAME TYPEOUT. SILO 

3360 ;HAD A COUNT WRITTEN IN. 

3361 ;0N READ OUT AN ERROR WAS 

3362 sDETECTED. THE TOTAL SILO 

3363 ;READOUT 1S IN LOCATION 

3364 :“SILOTB’’ TO THE NEXT 65 

3365 sWORDS. 

3366 015106 005720 643: TST (RO)¢ s INCREMENT (RO) 

3367 ;ARE FURTHER COMPARES TO 

3368 015110 017746 164024 MOV aSwR,-(SP) ;BE DONE 

3369 015114 042716 177577 BIC #*CSwO07! SwOB, (SP) ;ONLY KEEP SwW7 AND Sw8 

3370 015120 022726 000200 CMP #Sw07,(SP)¢ TEST S$w07 

3371 015124 001403 BEQ 10$ :1f NO MORE COMPARE THEN BRANCH 

3372 015126 005216 7$: INC (SP) NEXT GOOD WORD 

3373 015130 005305 DEC RS ; COUNT 

3374 015132 001346 BNE 5$ ;BRANCH IF 66 NOT COMPLETE 

3375 015134 005726 108: TS] {SP)+ POP STACK 


CZRIGDO ,RPO4/5/6 DSKLS ere 
CZRIGD.P11 1:00 


015220 


015260 


10-SEP-79 1 


000004 
012737 


005737 
001402 
000137 


004737 
005000 


004737 
032737 


104012 


000032 


002040 
015262 


042732 


164434 
000103 
042336 
100000 
001122 
164376 
000001 
001124 


001630 


MACY11 


002032 


001712 


001126 
001124 
001126 


042402 
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SILO 


-@erererererererererererererrrerrreretereererenteeeereteetereseeee 


;*e NOW PUT 


SILO TESTS 
67 WORDS INTO SILO AND CHECK FOR DLT 


aie EVEN AFTER THE 67TH. WORD INPUT THE FIRST WORD SHOULD NOT CHANGE 


“-@@eereeererrrrrrerrrerereerereeererreeereeeeeeneteeeeekeeeeeeeeeeee 


TS132: SCOPE 
MOV 


> *CHECK 
TST 
BEQ 


JMP 
308: 


2$: JSR 


3$: MOV 


#TINO,A#TSTNM =; THIS SAVES TEST NUMBER 


TO SEE If THE PROGRAM IS RUNNING WITH AN RH70 

aaRH70 beige FLAG FOR RH70 CONTROLLER 

30$ s1F FLAG = 1, THIS TEST IS SKIPPED 

T8133 ; JUMP TO NEXT TEST --ee-------------- ) 
s1F FLAG = 0, DO THIS TEST 

PC ,aaCLDISK sCLEAR DISK REG. 

RO ;CLEAR RO 

RO ADD 1 

RO,@RHDB ;LOAD SILO 

#67.,R0 367 DONE? 

2$ ;BRANCH IF YES 


1$ ;NO SO BRANCH 
PC ,a#PUTREG SAVE REGISTERS 


apt t AORES DLT SET? 


3 ;BRANCH IF YES 

R2,a#SBDADR sFAILING ADDRESS RHCS2 

11 DATA LATE DID NOT SET AT 67TH. 
Q@RHDB,a#SBDDAT ; INPUT TO SILO 

#1 ,a#$GDDAT GOOD DATA 

a#SGDDAT, a#$BDDAT ; COMPARE 

TS133 ;BRANCH IF GOOD 


@#RHDB ,a#REGADR FAILING REG. RHDB 
12 ;WORD IN RHDB CHANGED 
;AFTER THE 67TH INPUT. 


SEQ 0076 


C 
Ci 


CZRIGDO,RPOG/5/6 DSKLS CTRLRI 
11:00 


CZRJGD. Pll 
3416 
3417 
3418 
3419 
3420 
3421 
3422 
3423 
3424 
3425 
3426 
3427 015262 
3428 
3429 015264 
3430 
3431 
3432 
3433 015272 
3434 015276 
3435 015300 
3436 015304 
3437 
3438 015304 
3439 
3440 015310 
3441 015314 
3442 015320 
3443 015324 
3444 015330 
3445 015332 
3446 015336 
3447 
3448 015340 
3449 015344 
3450 015346 
3451 
3452 015350 
3453 015352 
3454 015356 
3455 015360 
3456 015366 
3457 015370 
3458 015372 
3459 015374 
3460 015400 
3461 015404 
3462 015410 
3463 015414 
3464 015420 
3465 015422 
3466 015426 
3467 
3468 015430 
3469 015434 
3470 015440 
3471 015442 


10-SEP-79 


000004 
012737 


005737 
001402 
000137 
004737 


013746 


104011 
013700 
005001 
010110 


005201 


000033 


002040 
015562 


042732 
001774 
000100 
042336 
001712 


001122 


001630 


000004 
001636 


042732 


001712 
001122 


001630 
000004 


MACY11 


002032 


015370 
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;perererrerererereeerrerererererertereereereeeeteneeeeeeereeeeeee 


s*TEST 33 SILO TEST § 
;*e THE SILO IS LOADED WITH 0,1,2,35 THEN AFTER 
pee ‘OR’ 1S UP A CLR IN RHCS2 1S DONE THEN 4, 


“hpaies 1S LOADED. AFTER ‘OR’ 1S UP 2 READS FROM 
baa S$1L0 ARE DONE, ON THE LAST, "DTL* IN RHCS2 SHOULD BE SET. 


;peeererrreerererererereeereterereeerereeeeeeeeeaKeneneeenKeeee eee 


18133: SCOPE 


MOV #TTNO,a#TSTNM : THIS SAVES TEST NUMBER 
:*CHECK TO SEE If THE PROGRAM IS RUNNING WITH AN RH70 
TST a#RH70 :TEST FLAG FOR RH70 CONTROLLER 
BEQ 30$ s1f FLAG = 1, THIS TEST IS SKIPPED 
JMP TS134 ; JUMP TO NEXT TEST --eee-------------- ) 
30$: s1f FLAG = 0, DO THIS TEST 
JSR PC, ,a#CLDISK sCLEAR DISK 
MOV Q#UNIT,-(SP) ;GET UNIT NO. 
BIS #IR, (SP) ;SET INPUT READY 
JSR PC ,a#PUTREG sSAVE REGISTERS 
CMP (SP)+,a#CS2 :1R SHOULD BE SET ‘’OR’’ CLEARED 
BEQ 1$ ;BRANCH IF GOOD 
MOV R2,a#SBDADR sFAILING REGISTER RHCS2 
ERROR 11 sRHCS2 DOES NOT HAVE IR SET 
- sAND ALL OTHER BITS 0 
1$: MOV a#RHDB,RO RO HAS RHDB ADDRESS 
CLR R1 DATA 
23: MOV R1,aR0 4° — 1 THEN 2 THEN 3 
NR 
INC R1 Sh yaygee DATA 
CMP #4,R1 1S 4 DONE 
BHIS 23 ; BRANCH 1F NOT 
MOV a#RHCS2,a03$ 
WAT “WALT FOR ‘‘OR"’ 
3$: -WORD O sRHCS2 ADDRESS 
OR ;WAIT ON 
JSR PC, ,a#CLDISK sCLR IN RHCS2 
MOV Q#UNIT,-(SP) [UNIT NO. 


BIS #1R, (SP) 

JSR PC ,a#PUTREG SAVE REGISTERS 

CMP (SP)+,aaCS2 71R SHOULD BE SET ‘'0’’=0 
BEQ 4$ BRANCH IF GOOD 


MOV R2,a#SBDADR sFAILING REGISTER RHCS2 
ERROR 11 sRHCS2 DOES NOT HAVE IR SET 
sAND ALL OTHER SITS 0 
4$: MOV a#RHDB,RO ;RO HAS RHDB ADDRESS 
MOV #4 ,ar0 ;LOAD 4 IN SILO 
MOV aR2,R1 SAVE RHCS2 
MOV arO,R5 sREAD THE 4 IN SILO 


Ci 
Ci 


CZRIGDO,RPO4/5/6 DSKLS CTRLRI 
CZRIGD.P11 11:00 


015444 


10-SEP-79 1 


104001 


032704 


104001 


000200 
000004 
042492 


000004 
001126 


042402 
001124 
001126 


100000 
001774 


042402 


MACY11 30A(1052) 
133 $ 


001124 


5$: 


6$: 


ERROR 


aRO,R3 
aR2,R4 
+ ae 


6 

#4 ,R5 

5$ 

RO, @#REGADR 


#4 ,a#SGDDAT 
neater 


R3 


6$ 

RO ,@#REGADR 
a#S$GDDAT 
yeceatmenees: 


#OLT,R4 
TS134 
O@#UNIT,-(SP) 


(SP)+,a#$GDDAT 
R4,a#$BDDAT 
ar eneesene 


N 6 
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ILO TEST 5 


;READ SILO TO GET DLT 
sSAVE RHCS2 

sTEST FOR OR IN RHCS2 
:1F OR IS NOT SET BRANCH 
sSILO 4 1S NOW COMPARED 


;SILO ADDRESS 

;GOOD DATA 

;BAD DATA 

;SILO DID NOT CONTAIN WORD 
;PUT IN AFTER ‘‘OR"’ WAS UP 
31S 11 ZERO BECAUSE SILO 
;1S DESTRUCTIVE READ 
;BRANCH IF GOOD 

;SI1LO ADDRESS 

;GOOD DATA 

;BAD DATA 

;SILO SHOULD Be ZERO 
;AFTER THE ONE WORD PUT IN 
7HAS BEEN TAKEN OUT AS 
;SILO 1S A DESTRUCTIVE READ 


BRANCH IF DLT SET 
;GET UNIT NO 
MDLT!OR!IR, (SP) ; 

:GOOD DATA 

BAD DATA 

;RHCS2 ADDRESS 
:DATA LATE ERROR 


SEQ 0078 


Se no DSKLS Bh 


CZRJGD.P 


015562 
015564 


10-SEP-79 


000004 
012737 


005737 
001402 
000137 


012706 
004737 
012711 


000137 


000034 


002040 
015720 
001000 
042732 
003566 
000005 
001126 
006766 


006766 
042402 


000032 
001126 
006632 


006632 
042402 


016040 


MACY11 


002032 


001126 
001124 


001126 
001124 


30A( 
133 


~SBTTL 


1052) 


SILO T 


8 7 
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SEQ 0079 


MORE REGISTER TESTS 


"Meee rererereeerekeeeerereeeereererereerteeeerereeetereereneerese 


TeTEST 34 
RDY (B1T 07) AND DVA (BIT 11) SHOULD ALWAYS BE SET 


TEST ODD BYTE INSTRUCTION ON RHCS1 = RH11 


seterererrrererererrererererterereerrrekereeeerKerereererereneee 


15134: 


30$: 


SCOPE 
MOV 

7 *CHECK 
TST 


BEQ 
JMP 


MTTINO,Q#TSTINM =; THIS SAVES TEST NUMBER 
TO SEE IF THE PROGRAM IS RUNNING WITH AN RH70 


a#RH70 TEST FLAG FOR RH70 CONTROLLER 

30$ :1F FLAG = 1, THIS TEST IS SKIPPED 

TS135 SOUP VO WERT TES) Seeeworereness ates ) 
;1F FLAG = 0, DO THIS TEST 

#STACK ,SP RESET STACK 

PC,CLDISK CLEAR DISK REG. 

#3566,aR1 ;LOAD RHCS1 WITH ANY NUMBER 

R1,-(SP) ;GETTING READY TO FORM ODD BYTE 

(SP) 7SP NOW HAS ODD BYTE FOR RHCS1 

#5,a(SP)+ :MOvE 5 INTO GuD BYTE FOR RHCS1 

aR i, av$BDDAT DATA 


TEST 

#2566!DVAIRDY, aw$BDDAT ;RHCS1 SHOULD HAVE 6766 
1$ ;BRANCH IF GOOD 
#2566!DVA'RDY,a#$GDDAT ;GO0D DATA 
R1,@#REGADR ;FAILING REGISTER RHCS1 
1 ;MOVING A NUMBER INTO 

:0DD BYTE OF RHCS1 GAVE 

;WRONG RESULTS 


#32,aR1 ; MOVE oak EVEN BYTE 
OR1,a#$BODAT ; TEST DAT 
#2432! DVA!RDY,a#SBDDAT RHCSI SHOULD HAVE 6632 


1$136 ;D0 NEXT RH11 TEST IF GOOD ---------------- ) 
#2432'DVA'RDY,a#SGDDAT ;GOOD DATA 
R1,a#REGADR ;FAILING REGISTER RHCS1 
1 ;MOVING A NUMBER INTO EVEN 
;BYTE OF RHCS1 GAVE WRONG 
;RESULT 
1$136 ;SKIP RH70 TEST ----------------------- 























RJGD.P 


015720 


016036 


10-SEP-79 


000004 
012737 
012706 
004737 


012711 


011137 
022737 


‘farce Bit -RP04/5/6 DSKLS Bhs 


000035 
001000 
042732 


003566 
000005 
001126 
004766 


004766 
042402 


000032 
001126 
004632 


004632 
042402 


MACY11 


002032 


001126 
001124 


001126 
001124 


30A(1052) 
134 


. Ff 
10-SEP-79 11:11 PAGE &1 
TEST ODD BYTE INSTRUCTION ON RHCS1 = RH11 


; -feerererercerreererrerererereerererererereeeeeereereteeeereeeeee 


TEST ODD BYTE INSTRUCTION ON RHCS1 = RH70 


TeTEST 35 


TS135: 


RDY (BIT 07) AND DVA (BIT 11) SHOULD ALWAYS BE SET 


SCOPE 


#TTNO,Q#TSTNM 
#STACK,SP 
PC,CLDISK 


#3566,aR1 
R1,-(SP) 
(SP) 
#5,a(SP)+ 
OR1,a#SBDDAT 


;p;erereererererererererererrerereeerrrereeKeerereeKeeeereteeeeeee 


THIS SAVES TEST NUMBER 
;RESET STACK 
CLEAR DISK REG. 


;LOAD RHCS1 WITH ANY NUMBER 
:GETTING READY TO FORM ODD BYTE 
SP NOW HAS ODD BYTE FOR RHCS1 
;MOVE 5 INTO ODD BYTE FOR RHCS1 
; TEST DATA 


ee @#SBDDAT ;RHCS1 SHOULD HAVE 4766 


:BRANCH IF GOOD 


$566 !DVAIRDY, a#SGDDAT ;GOOD DATA 


:'? -O@#REGADR 


#32,aR1 
@R1,a#$BDDAT 


;FAILING REGISTER RHCS1 


:MOVING A NUMBER INTO 
;0DD BYTE OF RHCS1 GAVE 
;WRONG RESULTS 


; MOVE Bey EVEN BYTE 


: TEST 


ATA 
#432'DVAIRDY, a#SBDDAT ;RHCS1 SHOULD HAVE 4632 


TS136 


ANCH IF GOOD 


>BR 
W432!DVAIRDY, awSGbDAT GOOD DATA 


“i ,@#REGADR 


;FAILING REGISTER RHCS1 


= MOVING A NUMBER INTO EVEN 
:BYTE OF RHCS1 GAVE WRONG 
;RESULTS 





ae 


™ ~~ 


SEQ 0080 


CZRIGDO,RPO4/5/6 DSKLS mm) 
CZRJGD. P11 1:00 


016040 
016042 


016050 
016054 
016056 
016062 


016062 


016066 
016072 
016074 
016076 
016100 
016104 
016110 
016114 


016120 


016142 
016144 
016150 
016154 


016160 


016202 


016206 
016210 
016214 


10-SEP-79 1 


000004 
012737 


005737 
001402 
000137 
004737 


052712 


022637 
001411 


104001 
013746 


000036 002032 


002040 
016216 


042732 
177000 


001774 
000100 
001126 
001126 


001774 
000100 
042402 


001774 
000010 
020000 


001774 


001126 


042402 


MACY11 


30A(1052) 
135 


dD 7 
10-SEP-79 11:11 PAGE &2 
TEST ODD BYTE INSTRUCTION ON RHCS1 = RH70 


sp eteeeeereerereerererererereeeeereeerrrteeeerenenereKeererereeeee 


s*TEST 36 TEST ODD BYTE INSTRUCTION ON RHCS2 


1S136: 


308: 


IR (BIT 06) AND THE UNIT SELECT (BIT O-2) WILL BE SET 


SCOPE 
MOV MTTNO,Q#TSTNM =; THIS SAVES TEST NUMBER 
>*CHECK TO SEE If THE PROGRAM IS RUNNING WITH AN RH70 


TST aaRH70 ; TEST FLAG FOR RH70 CONTROLLER 
BEQ 30% :1F FLAG = 1, THIS TEST IS SKIPPED 
JMP 1$137 : JUMP TO NEXT TEST ------------------- ) 


s1F FLAG = 0, DO THIS TEST 
JSR PC, ,a#CLDISK 


BIS #177000, (R2) ;LOAD RHCS2 

MOV R2,-(SP) :GETTING READY FOR ODD BYTE 
:SP NOW HAS ODD BYTE FOR RHCS2 
;CLERR RHCS2 ODD BYTE 

MOV Q@#UNIT, -(SP) ;GET UNIT NO. 


BIS WIR, (SP) ; INPUT READY AS IT IS SET 
MOV aR2,a#$BODAT :TEST DATA 
CMP (SP)+,aM$BDDAT : COMPARE TO SEE THAT 


;""CLRB"’ DID CLEAR 


1$ 
MOV Q#UNIT, O#SGDDAT 
BIS WIR, @#$GDDAT ;GOOD DATA 
MOV R2, @#REGADR ; FAILING REGISTER RHCS2 
ERROR 1 ;CLEARING ODD BYTE OF RHCS2 
;GAVE WRONG RESULTS 
MOV Q@#UNIT, -(SP) 


BIS WBAI, (SP) 
BIS WUPE ,aR2 


MOVB (SP)+, @R2 


HAVE UPE AND MPE IN RHCS2 
;BESIDES UNIT SELECT 
;MOVE INTO EVEN BYTE OF RHCS2 


MOV Q@#UNIT, ~(SP) 

BIS WUPE!IR'IBAI, (SP) 

MOV (SP), QW SGDDAT ;GOOD DATA 

MOV OR2,a#SBDDAT TEST DATA 

CMP (SP)+,a#SBDDAT “COMPARE TO SEE THAT MOVB DID 
:MOVE EVEN BYTE ONLY 

BEQ 1$137 :;BRANCH IF GOOD 

MOV R2,Q#REGADR sFAILING REGISTER RHCS2 

ERROR 1 ;MOVING A NUMBER INTO EVEN 
;BYTE OF RHCS2 GAVE WRONG 
;RESULTS 


pp eeeeeeeeerererererereerreetrrerrrrrereeerKeereKeteeeeeeKeeereee 


:GIVE INIT & SETUP REGISTER CORRES 


SEQ 0081 


C2 
CZ 


Spe ate * DSKLS ote 
CZR 11:00 


JGD.P 


016216 
016220 


016304 


016306 
016312 
016316 
016324 
016326 
016334 
016340 


10-SEP-79 


000004 
012737 


000037 


025252 


000377 
001126 
177652 


177652 
042402 


000123 
001126 
177523 


177523 
042402 


MACY11 


002032 


001126 
001124 


001126 
001124 


E 
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--@@terererrrererererererrrerererrerererererereterereetereteeereree 


SeTEST 37 ODD BYTE TEST ON RHWC 
yee IN THIS REGISTER NO BITS SHOULD BE PERMANENTLY SET 


Ss ereeereererereererererrererereeeerenereneneeeeeKenerenerereretee 


TS137: SCOPE 


MOV MTTNO,Q#@TSTNM =; THIS SAVES TEST NUMBER 
MOV STACK ,SP ;RESET STACK 
JSR PC,CLOISK CLEAR DISK REGISTERS 


MOV O#RHWC, RS 7R4 NOW 1S WORD COUNT REGISTER 
MOV #25252, aR ;LOAD RHWC 

MOV R4, -(SP) :GETTING READY TO FORM ODD BYTE 
INC (SP) SP NOW HAS ODD BYTE FOR RHWC 


MOVB #377, @a(SP)+ ;MOVE 377 INTO ODD BYTE OF RHWC 
MOV QRS ,a#$BDDAT ST DATA 
CMP #177652,a#$BDDAT; COMPARE TO SEE IF MOVB DID OK 


ee 
— 
m 


BEQ 1$ ;BRANCH IF GOOD 
MOV #177652,a#$GDDAT ;GOOD DATA 
MOV R4, @#REGADR ; REGISTER FAILING RHWC 
ERROR 1 ; MOVING INTO ODD BYTE OF RHWC 
;GAVE WRONG RESULTS 
1$: MOVB #123,  aR4 ;MOVE INTO EVEN BYTE OF RHWC 
MOV ard, aNSBDDAT > TEST DATA 
CMP #177523, a#SBDDAT 
BEQ TS140 ;BRANCH IF GOOD 
MOV #177523, avscoDAT’ ;GOOD DATA 
MOV . Q@#REGADR ;REGISTER FAILING RHWC 
ERROR 


CZ7RJGDO, alae DSKLS CTRLRI 
10-SEP-79 11:00 


CZRJGD.P 


016342 
016344 


016430 


016432 
016436 
016442 
016450 
016452 
016460 
016464 


000004 
012706 


010437 
104001 


001000 


025253 


000377 
001126 
177652 


177652 
042402 


000125 
001126 
177524 


177524 
042402 


MACY11 


002032 


001126 
001124 


001126 
001124 


y_¢ 
30A(1052) 10-SEP-79 11:11 PAGE &4 
137 ODD BYTE TEST ON RHWC SEQ 0083 


-s@@eaererrerererrrrrrrererrerererrrrrererrereeeteeetereneeteereeeeee 


T*TEST 40 TEST ODD BYTE INSTRUCTION ON RHBA 
yo BIT 0 SHCULD ALWAYS BE 0 


pp erreeerereerrereerererererrererertrrrerreereKeeKereKreereKeerAeese 


TST40: SCOPE 


MOV STACK ,SP ;RESET STACK 

MOV #TTNO,Q#TSTNM THIS SAVES TEST NUMBER 

JSR PC, CLDISK 

MOV AMRHBA, RG 7R4 HAS ADDRESS OF RHBA 

MOV #25253, aR ;LOAD RHBA 

MOV R4, -(SP) ;GETTING READY FOR ODD BYTE 
INC (SP) ;SP HAS ODD BYTE ADR. OF RHBA 


MOVB #377, @(SP)+ ;LOAD ODD BYTE OF RHBA 
MOV OR4 ,a#SBDDAT ST DATA 
CMP #177652, a#S$BDDAT: COMPARE MOVB RESULTS 


iil 
mn 


BEQ 1$ ;BRANCH IF GOOD 

MOV #177652, a#$GDDAT:GOOD DATA 

MOV R4, O@#REGADR ;FAILING REGISTER RHBA 

ERROR 1 ;MOVING INTO ODD BYTE OF 
;RHBA GAVE WRONG RESULTS 

1$: MOVB #125, aR 

MOV OR4 ,a#$BDDAT ; TEST DATA 

CMP #177524 ,a#$BDDAT 

BEQ TS141 ;BRANCH IF GOOD 

MOV #177524 ,a#$GDDAT: : 6000 DATA 

MOV R4, Q@MREGADR ;FAILING REGISTER RHBA 

ERROR 1 ;MOVING INTO EVEN BYTE OF 


;RHBA GAVE WRONG RESULTS 


aes 6 


6 7 
CZRIGDO,RPO4/5/6 DSKLS one MACY11 30A(1052) 10-SEP-79 11:11 PAGE 8&5 
CZRIGD.P11 10-SEP-79 11:00 140 TEST ODD BYTE INSTRUCTION ON RHBA SEQ 0084 


3708 
thd -SBTTL DCL COMMAND TESTS 
3711 ppetteeererrrrerererreerererereerererererereererererererteeeeeesTee 
3712 7"e FOUR GENERAL REGISTERS WILL BE RESERVED FOR HARDWARE 
3713 ;ee R1=RHCS1 CONTROL AND STATUS] 
3714 ;ee R2=RHCS2 CONTROL AND STATUS2 
3715 ;ee R3=RHDS1 DRIVE STATUS | 
19 ~~ RG=RHER1 ERROR REGISTER! 
3718 ve WHENEVER ANY OTHER USE IS MADE OF THESE REGISTERS 
e136 pee APPROPIATE SAVING MUST BE DONE 
3721 ppeteeeerererereerrereerereeerererrtreeeeretenereeeetereKeeeeeere 
3722 
3723 
3724 
3725 
3726 
3727 
3728 pe eeeeeeerereerereeeerertereeeeereeerereereeeteKeeeKeTeTeTe ee 
3729 yee ERROR REGISTER #01 (RHER1) TEST 
3730 ite BIT #1 (ILLEGAL REGISTER) CANNOT BE TESTED ON PDP11 THIS BIT 
373) ite 1S FOR PDP10 USE ONLY 
3732 ppeeeeeereereerereerereerttretererererereteneeeeeeereeneteeretete 
3733 
3734 
3735 
3736 RHR RRe Kee REE Tere eee eee eee eeeeeeeeeAKeeeKeKereneeeeeene 
fede TEST 4) TEST ILF BIT #0 IN REG. RHERI 
3739 38 ALL 3 ILLEGAL FUNCTION CODES SHOULD SET - ATA,ERR,ILF = AND ARE TESTED 
Line ;ee A GO WITHOUT CLEARING ILF ERR SHOULD SET - MXF,DLT,TRE - BITS AND THEY ARE ALSO 
4 
3742 pptteeeeeeeeereererererreneeerererereeeeteeerereeeeeeeeeeTA ETS 
fez 016466 000004 15141: SCOPE 
Gh 
3745 016470 012706 001000 MOVs STACK, SP SRESET STACK 
3746 016474 012737 000041 002032 MOV #TTNO,Q#TSTNM ;THIS SAVES TEST NUMBER 
3747 016502 004737 042732 JSR PC ,@#CLDISK ;CLEAR REGISTERS 
3748 016506 012777 000001 163144 MOV #DMD ,ARHMR 7SET DIAGNOSTIC MODE 
3749 016514 005037 002022 CLR Os TMPILL 7GET READY TO MAKE ILLEGAL FUNCTION 
3750 016520 012700 002044 1$: MOV #FUTABL,RO ;LOAD FUNCTION CODE TABLE START 
3751 016524 012705 000021 MOV #17.,R5 COUNTER (16 GOOD FUNCTIONS) 
3752 016530 023720 002022 2$: CMP as TMPILL, (RO)* :1S THIS A LEGAL FUNCTION CODE? 
3753 016534 001004 BNE 3$ NO - DECR. FUNCT. CODE CTR 
3754 016536 062737 000002 002022 ADD #2,Q#TMPILL “YES MAKE NEXT FUNCTION CODE 
3755 016544 000765 BR 1$ : TEST NEXT FUNCTION CODE 
3756 016546 005305 3$: DEC R5 MAKE NEXT CODE IF 1ST 16 
3757 ;LEGAL FUNCTIONS NOT DONE 
3758 016550 001367 BNE 2$ ;BRANCH IF 16 NOT COMPLETE 
3759 016552 032737 000100 002022 BIT #100, ,aaTMPILL sALL BITS UP TO BIT * COMPARED? 
3760 016560 001077 BNE 12% YES © EX]T eoceece 
3761 016562 013737 002022 002106 MOV aeTMPILL QMILLEGL; NO = TEST THE ILLEGAL FUNCTION 
3762 016570 062737 000002 002022 ADD #2, QM 1MPILL TEST NEW FUNCTION CODE NEXT TIME 


| 
EEE 


CZRIGDO,RPO4/5/6 DSKLS air 


CZRIGD.P11 


016576 
016602 
016610 
016614 
016622 
016626 
016632 
016634 
016640 


016642 
016646 
016652 
016660 
016662 
016666 


016670 
016674 
016700 


016704 
016706 
016714 


016716 


016722 


016734 
016740 


10-SEP-79 
004737 


104011 


052711 


104011 


013746 
042716 
022726 


001404 
013737 
104011 


004737 


010237 
104415 


004737 
032737 


042732 
163050 


001110 
001716 
001122 


000001 
042336 
009001 


001122 


001716 


001736 
001000 
140700 


001662 001122 


045172 


016730 


042336 
040000 001714 


MACY11 30A(1052) 
141 


5$: 


6$: 


7$: 


108: 
118: 


10-SEP-79 11:11 

TEST ILF BIT #0 IN REG. 
JSR PC ,a#CLDISK 
MOV #DMD ,ARHAR 
MOV @#ILLEGL,@R1 
MOV #4%,Q#SLPERR 
JSR PC ,a#PUTREG 

TST aweERl 
BEQ 5$ 
MOV R4 ,a#SBDADR 
ERROR 11 
BIS #G0,aR1 
JSR PC, a#PUTREG 

CMP MILF ,awERI 
BEQ 6$ 
MOV R4,a#$BDADR 
ERROR 11 
MOV a#0S1,-(SP) 
BIC #PROG, (SP) 
CMP MATA'ERR'VV!DPR! 
BEQ 7$ : 
MOV @#RHDS1 ,Aa#S$BDADR 
ERROR 11 : 
JSR PC ,@#MIDDLE 
MOV R2,a#10$ 
WAT 

wORD 0 
MXF 

JSR PC, a@#PUTREG 
BIT #TRE ,aa(S1 


H 7 
PAGE 8&6 
RHER1 


SEQ 0085 


SET DIAGNOSTIC MODE 

; ILLEGAL FUNCTION --=> RHCS1 
ERROR RETURN POINT 

;SAVE REGISTERS 

; THERE SHOULD NOT BE ANY ERROR YET 
sCONTINUE IF RHERT STILL = 0 
sFAILING REGISTER ADDRESS RHERI 
ALTHOUGH AN ILLEGAL FUNCTION 
;HAS BEEN MOVED INTO RHCS1 

;NO ERRORS SHOULD SHOW TILL 

:G0 1S SET RHER1 SHOULD BE 

sALL ZEROS 


;GO IN RHCS1 

;SAVE REGISTERS 

; ILLEGAL FUNCTION BIT SHOULD BE SET 
:1T IS = CONTINUE 

FAILING REGISTER ADDRESS RHERI 

; ILLEGAL FUNCTION DID NOT 

SET ON AN ILLEGAL FUNCTION 
EXECUTION, THE ILLEGAL FUNCTION 
;BEING EXECUTED IS IN RHCS1 


;GET RHDS1 

MASK PROG 

DRY, (SP)+ 

ZATTENTION (BIT 15) 

;VOLUME VALID (BIT 6) 
sCOMPOSIT ERROR (BIT 14) 
;DEVICE READY (BIT 7) SHOULD 
;BE SET ON RHDS1 

> THEY ARE = CONTINUE 


;FAILING REGISTER ADDRESS RHDS1 
FOLLOWING BITS SHOULD BE SET 


WITH AN ILLEGAL FUNCTION 
sATTENTION (BIT 15) 
;COMPOSIT ERROR (BIT 14) 
MEDIUM ON LINE (BIT 12) 
DEVICE READY (BIT 7) 


;GIVE A WRITE HEADER AND 
:DATA COMMAND WiTHOUT 

; CLEARING THE ERRORS 
USING "MIDDLE" 
;1T WILL COME BACK BEFORE 
>THE END TO FIND OUT ITS 
7 STATE 

;MOVE RHCS2 ADDRESS 

WALT FOR ‘MXF* BIT 
sADDRESS OF RHCS2 


SAVE REGISTERS 


7 TRANSFER ERROR (BIT 14) RHCS1 = “TRE' 
;SHOULD SET DUE TO "MxF" 


SO THAT 


aon 


CZRIGDO,RPO4/5/6 DSKLS CTRLRI 
CZRIGD.P11 00 


016746 
016750 
016754 


016756 
016760 


10-SEP-79 11: 


001003 
010137 001122 
104011 


000660 
000240 


MACY11 30A(1052) 
14] 


13$: 
128: 


10-SEP-79 11:11 
TEST ILF BIT #0 IN REG. RHERI 


BNE 
MOV 
ERROR 


13% 
arte: 


Wh. 
PAGE @7 


:11 1S = CONTINUE 

SFAILING REGISTER RHCS1 

7 TRANSFER ERROR (BIT 14) RHCS1 = ‘TRE’ 
:SHOULD BE SET DUE TO 'MxF* 
;LOCAL SCOPE RETURN POINT 


7GO BACK & TEST NEXT FUNCTION CODE 


SEQ 0086 


On 


CZRIGDO,RPO4/5/6 DSKLS gir 
CZRIGD.P11 1:00 


016762 
016764 
016770 


016776 


017002 


017054 


017062 


017074 


10-SEP-79 1 


000004 
012706 
012737 


004737 


777 


oooo°o°eo°o°0oo 
et et es es os 
MMWR furor 


000021 


052777 


005037 
042737 


052737 
005037 


004037 
001632 
002114 
000021 


001000 
000042 


042732 


177777 
177777 


162564 
000001 


043424 


000001 


003172 
016000 


000100 
005200 


043424 


MACY11 


002032 


162622 
162616 
162620 
162616 
162612 


162576 


162536 


003176 
003176 


‘sf 
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py etereerererererererrererereererererererenenereneeeeeneteererene 


tTEST 42 READ IN PRESET 
esti ALL POSSIBLE REGISTERS WILL BE FILLED WITH ONES 
"peed THE REGISTER CONTENTS WILL BE SAVED IN REINTO BUFFER 
“hale THE READ IN PRESET COMMAND WILL BE GIVEN 
ies ALL REGISTERS WILL BE CHECKED 
ppteeeererecererrerererererereereretrereeeeereneeeeeeeerereneeee 
TST42: SCOPE 
MOV #STACK,SP RESET STACK 
MOV #TINO,aaTSTNM 7 THIS SAVES TEST NUMBER 
JSR PC, ,a#CLDISK INIT AND SET GENERAL REGISTERS 


FILL ALL POSSIBLE BITS WITH ONES 


MOV W177777,aRHWC =; WORD COUNT REGISTER GETS 177777 

MOV #177777,aRHBA ;BUS ADDRESS REGISTER GETS 177777 
MOV #17437,@RHDST ;DESIRED SECTOR TRACK GETS 17437 

MOV #16377 ,aRHOF OFFSET REGISTER GETS 16277 

MOV #777, QRHCA DESIRED CYLINDER GETS 777 

MOV WAI6'A17,-(SP) GET BIT 9 AND 8 

BIS @#READIN, (SP) 


MOV (SP)+,a@RHCS1 :FILL READ IN PRESET IN RHCS1 

MOV #DMD ,@RHMR >SET DIAGNOSTIC MODE 

s*THE REGISTERS WILL BE SAVED IN REINTO BUFFER 

JSR RO, @#SAVER 7 SAVE 

RHWC : FROM 

REINTO 210 

i. sNUMBER SAVED 

:*GI]VE READ IN PRESET COMMAND 

BIS #G0,aRHCS1 s INCLUDE GO TO READ IN PRESET 
s*NOW SAVED REGISTERS WILL BE CHANGED TO EXPECTED VALUE 

CLR a#REINTO+12 :CLEAR SAVED RHDST 

BIC MFMT22'HCI'ECI, a#REINTO+16 sCLEAR FMT22,HCI1,EC!] IN 

>SAVED RHOF 
BIS #VV,Q@MREINTO+16 ;SET VV IN SAVED RHOF 
CLR a#RE INTO+20 sCLEAR SAVED RHCA 


;tAFTER A READ IN PRESET COMMAND 
>*SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE 


JSR RO,@#SAVER 7 SAVE 
RHWC ;FROM 
WRFROM :10 
« NUMBER OF REGISTERS SAVED 


7*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
;*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
3*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 


aon 


CZRJGDO, egade* DSKLS oe 


CZRJGD.P 


017140 


017172 


017206 


10-SEP-79 1 
113737 003205 


004037 043626 
60 


017206 


013705 047736 
960505 
016537 001630 
104001 


000207 


MACY11 30A(1052) 
142 


002141 


042402 


2$: 


10-SEP-79 11:11 
READ IN PRESET 


MOVB 


@F#REINTO*25 


kK 7 
PAGE &9 


,@#WRFROM+25;SAVE UPPER RHAS 


;*COMPARE REGISTERS BEFORE READ IN PRESET COMMAND 
;tW1TH AFTER COMMAND 


JSR 
REINTO 


RO,a#COMPAR 


@#ERWORD,RS 


; COMPARE 

;GO0D BUFFER 

; TEST BUFFER 

;NUMBER OF REGISTERS 
sRETURN FOR ERRGR 


: SAME 
;RETURN FOR GOOD COMPARISON 


;GETTING READY TO INDEX 
OUBLE ERROR WORD 


R5,R5 3D 
RWWC- -2(R5), @#REGADR ;FAILING REG. ADDRESS 


PC 


READ IN PRESET CAUSED IMPROPER 
REGISTER CHANGE 
;RETURN FOR FURTHER COMPAR] SONS 


NO ERRORS 


SEQ 0088 


. 
CZRIGDO,RPOG/5/6 DSKLS CTRLR1 = MACY11 30A(1052) 10-SEP-79 11:11 PAGE 90 


CZRJGD.P11 10-SEP-79 11:00 142 READ IN PRESET SEQ 0089 

3908 
3909 
3910 peeererererrererereeerererererererreeeeeeKeeeeeeeeTeeKAteeiereee 
3911 SSTEST 43 NO OPERATION FUNCTION TEST 
3912 tee ALL POSSIBLE REGISTERS ARE CLEARED THEN A‘'NOP’’=0 
3913 pee 1S GIVEN NO CHANGE SHOULD HAPPEN 
3914 ;et ALL POSSIBLE REGISTERS ARE FILLED WITH ONES THEN A ‘‘NOP"' 
sore pee 1S GIVEN NO CHANGE SHOULD HAPPEN 
3917 sy eeteeererererrererreererrererererereteeeeKeneeeteKeKeeeenenereeeee 
3918 017206 000004 1S143: SCOPE 
ie 017210 012737 000043 002032 MOV #TTNO,@#TSTNM ;THIS SAVES TEST NUMBER 
3921 . :*START WITH CLR IN RHCS2 (BITS) 
3922 017216 004737 042732 JSR PC ,a#CLDISK CLEAR ALL POSSIBLE BITS 
3923 017222 012777 000001 162430 MOV #DMD ,ARHMR :SET DIAGNOSTIC MODE 
3924 017230 013711 002044 MOV @#NOPERA,aR1 :PUT NOP OPERATION=0 IN RHCS1 
3925 017234 012700 001632 MOV #RHWC RO sSTARTING ADDRESS OF REG 
3926 017240 012703 001706 MOV #WC,R3 :STARTING ADDRESS OF WHERE SAVED 
3927 017244 012702 000021 MOV WRHEC2-RHWC+2/2,R2 ;NUMBER OF REGISTERS 
3928 017250 013023 1$: MOV a(RO)+,(R3)+ :SAVE HARDWARE REG 
3929 017252 005302 DEC R2 > COUNT 
3930 017254 001375 BNE 1$ :BRANCH IF NOT COMPLETE 
3931 017256 013737 001662 017276 MOV QM#RHDS1,ae2$ :GET ADDRESS OF DRIVE STATUS 
3932 017264 010137 017304 MOV R1,a#3$ :GET ADDRESS OF RHCS1 
3933 017270 052711 000001 BIS #G60,aR1 :GO TO RHCS1 
3934 017274 104415 WAT sWAIT FOR DRY IN RHDSI 
3935 017276 000000 2$: .wORD 0 sADDRESS OF DRIVE STATUS RHDS1 
3936 017300 000200 DRY :DRY WILL BE WAITED O 
3937 017302 104415 WAT sWAIT FOR RDY IN RHCS1 
3938 017304 000000 3$: .wORD 0 sADDRESS OF RHCS1 PUT HERE BY AN 
3939 sEARLIER MOV 
56 017306 000200 RDY :RDY WILL BE WAITED ON 

4 
3942 :*AFTER A NO OP COMMAND 
3965 s*SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE 

44 
3945 017310 004037 043424 JSR RO, a#SAVER : SAVE 
3946 017314 001632 RHWC >FROM 
3947 017316 002114 WRF ROM :10 
3348 017320 000021 17. “NUMBER OF REGISTERS SAVED 

dy 
3950 s*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
3951 s*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
3952 :#SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
3955 017322 113737 001733 002141 MOVB a#AS+1,a#WRFROM+25;SAVE UPPER RHAS 

4 

3955 
3956 :*COMPARE REGISTERS BEFORE NO OP COMMAND 
3037 sew] TH AFTER COMMAND 
3959 017330 004037 043626 JSR RO, a#COMPAR > COMPARE 
3960 017334 001706 we :GOOD BUFFER 
3961 017336 002114 WRF ROM :TEST BUFFER 
3962 017340 000021 17, :NUMBER OF REGISTERS 
3963 017342 017350 4$ >RETURN FOR ERROR 


CZRIGDO,RPOG/5S/6 DSKLS CTRLRI 
10-SEP-79 11:00 


CZRIGD.P11 


017370 


017370 
017376 
017402 


017410 
017414 
017420 
017424 


017432 


017512 
017514 


017350 
017370 


013705 
060505 
016537 
104001 


000207 


012737 
004737 
012777 


012700 
012705 
012730 
013777 


005305 


000000 
000200 


004037 
001632 
002114 
000021 


047736 
001630 


017376 
042732 
000001 


001632 
000021 
177676 
001774 


002044 
001632 
001706 
000021 


001662 
017512 
000001 


043424 


MACY11 


042402 


001110 
162250 


162204 


017504 


30A(1052) 
143 


4$: 


5$: 


14$: 


6$: 


7$: 


10$: 


118: 
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NO OPERATION FUNCTION TEST 

4% 3 SAME 

5$ ;RETURN FOR GOOD COMPARISON 

MOV Q#ERWORD,RS zGETTING READY TO INDEX 

ADD RS,RS ;DOUBLE ERROR WORD 

MOV RHWC- -2(R5), @#REGADR sFAILING REG. ADDRESS 

ERROR 1 NO op COMMAND CAUSED IMPROPER 
>REGISTER CHANGE 

RTS PC = RETURN FOR FURTHER COMPARISONS 
3NO ERRORS 


MOV W14$,aMSLPERR  ;SET SCOPE LOOP TO 14$ 
JSR PC ,a#CLDISK ; INIT LAST ALL ZERO TEST 
MOV #DMD ,ARHMR SET DIAGNOSTIC MODE 


;*NOW START WITH ALL ONES IN ALL POSSIBLE REGISTERS 


MOV #RhWC RO ;ADDRESS OF FIRST REGISTER 

MOV WRHEC2-RHWC+2/2,R5 ;NO. OF REGISTERS 

MOV #177676,a(RO)* ;FILL WITH ALL ONES 

MOV @WUNIT,@RHCS2 ;REINSTATE UNIT NUMBER UNDER TEST 
;KEEP INTERRUPT DISABLED 


DEC R5 ; COUNT 

BNE 6$ BRANCH IF INCOMPLETE 

MOV @#NOPERA, aR! ;PUT NOP OPERATION: =0 IN RHCS1 
MOV WRHWC RO :STARTING ADDRESS OF REG 


MOV #UC RS ;STARTING ADDRESS, OF WHERE SAVED 
MOV WRHEC2-RHWC+2/2,R2 ;NUMBER OF REGISTERS 
MOV a(RO)+,(R3)+ ; SAVE HARDWARE REG 

; COUN 


DEC R2 sc 

BNE 7$ ;BRANCH IF NOT COMPLETE 

MOV @#RHDS1,a#10$  ;GET ADDRESS OF DRIVE STATUS 

MOV R1,0#11$ ;GET ADDRESS OF RHCS1 

BIS #G0,aR1 :GO TO RHCS1 

WAT WAIT FOR DRY IN RHDS1 

«WORD 0 ;ADDRESS OF DRIVE STATUS RHDS1 

DRY :DRY WILL BE WAITED ON 

WAT ;WAIT FOR RDY IN RHCS1 

-WORD 0 ADDRESS OF RHCS1 PUT HERE BY AN 
SEARLIER MOV. 

RDY ROY WILL BE WAITED ON 


;*AFTER A NO OP COMMAND 
> *SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE 


JSR RO,@#SAVER 7 SAVE 
RHWC ; FROM 
WRFROM ;10 
Ve NUMBER OF REGISTERS SAVED 


7*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
;*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 





CZRJIGDO,RPO4/5/6 DSKLS CTRLRI 
CZRIGD.P11 11:00 


017530 


017536 


017554 
017556 
017562 
017564 
017572 
017574 


017576 


10-SEP-79 1 


113737 


004037 


017576 


013705 
060505 
016537 
104001 


000207 


001733 


043626 


047736 
001630 


MACY11 30A(1052) 
143 


002141 


042402 


128: 


13$: 


n 7 
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NO OPERATION FUNCTION TEST SEQ 0091 
;*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
MOVB O#AS+1 ,a#WRFEROM+25;SAVE UPPER RHAS 


> *COMPARE REGISTERS BEFORE NO OP COMMAND 
;tW1TH AFTER COMMAND 


JSR RO, a#COMPAR ; COMPARE 

wC ;GOOD BUFFER 

WRF ROM ; TEST BUFFER 

IF ;NUMBER OF REGISTERS 

12% RETURN FOR ERROR 

12$ ; SAME 

13$ RETURN FOR GOOD COMPARISON 

MOV O#ERWORD,RS 4 tilyy READY TO INDEX 

ADD R5,R5 OUBLE ERROR WORD 

MOV RHWC=2(R5), asREGADR ;FAILING REG. ADDRESS 

ERROR 1 ;NO OP COMMAND CAUSED IMPROPER 
:REGISTER CHANGE 

RTS PC ;RETURN FOR FURTHER COMPARISONS 
NO ERRORS 





CZRIGDO, nla? DSKLS Be 


CZRIGD.P 


017576 


020016 


10-SEP-79 1 


000004 


oooooo°ceo°o°oo°oo 
a et et Lf tt ot 
MMM PIPPI PPP PoP nore 
NSN NS SS SN NSN SN SNS 
SNS NSN NSN NS NS NS SSS 
SN NSN NS NSS SSS 


013700 


001000 


002020 
060010 


177777 


000001 
001630 


MACY11 39A(1052) 
143 


002032 


162004 


161724 


161652 


8 8 
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NO OPERATION FUNCTION TEST 


pp teeereerererererrererrererererererererenererenenereneeeeerereee 


s*TEST 44 DRIVE CLEAR 


ALL WRITE BITS OF ALL REGISTERS EXCEPT RHDB ARE FILLED WITH 
ONES EXCEPT FOR BIT #0 AND BIT #6 WHICH ARE ‘'GO'’ AND 
“ENABLE INTERRUPT" BITS 

THEN A DRIVE CLEAR IS PERFORMED 

THEN ALL REGISTERS EXCEPT RHDB ARE CHECKED 


*+@eeerereererrererererererereeererereeeereetereneneeneeererenenese 


4 
we 


30$: 


31$: 


278: 


144: 


SCOPE 

MOV #STACK,SP ;RESET STACK 

MOV MTTNO,Q@#TSTNM =; THIS SAVES TEST NUMBER 
JSR PC ,a#CLDISK ;SET REGISTERS AND CLEAR 


;*FIiLL ALL POSSIBLE BITS WITH ONES 


MOV #177777,@RHDB ;BUS ADDRESS REGISTER GETS 177777 
MOV #177777,aRHWC =; WORD COUNT REGISTER GETS 177777 
MOV #177777,@RHBA  ;BUS ADDRESS REGISTER GETS 177777 
BIS #157010,@RHCS2 ;CONTROL AND STATUS 2 GETS 157010 
MOV #1476, aRHCS1 CONTROL AND STATUS REGISTER/GETS 1476 
MOV #177777, @RHER1 ;ERROR REGISTER! GETS 177777 

MOV #17437, QRHDST DESIRED SECTOR TRACK 

MOV #177777, A@RHER2 ;ERROR REGISTER 2 

MOV #16277, aRHOF OFFSET REGISTER 

MOV W177777,ARHCA ;DESIRED CYLINDER 

MOV #177777, @RHERS ;ERROR REGISTER 5 

MOV #DMD,aR HMR ;MAINTENANCE REGISTER 

MOV #177777,aRHMR =; MAINTENANCE REGISTER 


:*THIS SETS BITS FOR ALL PRESENT DRIVES 


MOV @#TOTALAT,RO ;GET DRIVE PRESENT 

CLR aR2 ;CLEAR RHCS2 AND CARRY BIT 

MOV #8. ,R5 ; COUNTER 

ROR RO ;GET BIT INTO CARRY 

BCC 31$ ;BRANCH IF NO UNIT ON THIS BIT 
MOV #-1,aR4 ;MOVE INTO ERROR REGISTER TO SET ATA 
INC aR2 INCREMENT RHCS2 = UNIT NO. 
DEC R5 ; COUNT 

BEQ 27% ;BRANCH IF 8 DONE 

BR 30$ > CONTINUE THIS ROUTINE 

MOV Q#UNIT,-(SP) 

BIS #157010, (SP) ;REINSTATE SET BITS 

MOV (SP)+,a@R2 : 

MOV #OMD ,ARHMR SET DMD 


M 
MOV Q#DCLEAR,@R1 DRIVE CLEAR = 10 INTO RHCS1 


BIS #G0,aR1 ; G0 
MOV #WRHDB, RO 7RO CONTAINS ADDR. OF ADDR. OF REG, 


SEQ 0092 


On 


JGD.P 


Sore: oneal DSKLS CTRLRI 
CZR 10-SEP-79 11:00 


020022 


020044 


020050 


020072 


020076 
020104 
020110 
020116 
020120 


020124 
020130 


20154 


020160 
020164 


020176 


012737 
013037 
022737 
901402 
004737 


012737 


177777 
001126 
177777 


020702 


177777 
001126 
177777 


020702 


177776 
001126 
177776 


020702 


000110 


001134 
020702 


002000 
104210 
004210 


MACY11 30A(1052) 
T44 


001124 
001126 


001124 
001126 


001124 
001126 


001126 


001124 
001124 


288: 


3$: 


4$: 


5$: 


6$: 


32%: 


C 8 
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DRIVE CLEAR SEQ 0093 


:*DATA BUFFER REGISTER 


#177777 ,A#SGDDAT ;GOOD DATA FOR ERROR TYPEOUT 
a(RO)+ @NSBDDAT 7 TEST DATA 


#177777 ,a#$BDD : COMPARE DATA 

3$ * BRANCH if GOOD 

PC ,awERCLFC ‘JUMP TO ERROR FOR CLR (BIT 5) 
> IN RHCS2 


;*WORD COUNT REGISTER 


#177777 ,a#SGDDAT :GOOD DATA FOR ERROR TYPEOUT 
Q(RO)+,a#$BDDAT ; TEST DATA 
#177777 ,a#$BDDAT ; COMPARE DATA 
4% ;BRANCH IF GOOD 
PC, ,aMERCLFC ; JUMP TO ERROR FOR CLR (BIT 5) 
: IN RHCS2 


>*BUS ADDRESS REGISTER 


#177776 ,a#$GDDAT ;GOOD DATA FOR ERROR TYPEOUT 
Q(RO)+,a#$BDDAT ; TEST DATA 
#177776 ,a#$BDDAT ioe DATA 
5$ ;BRANCH IF GOOD 
PC ,aWERCLFC any sant FOR CLR (BIT 5) 
; IN RHCS 


> *CONTROL AND STATUS 2 REGISTER 


#110,-(SP) s INCLUDE IR 

Q#UNIT, (SP) = SET UNIT NO. 

(SP)+,a#$GDDAT ;GOOD DATA FOR TYPE OUT 

Q(RO)+,a#$BDDAT ; TEST DATA 

A#SGDDAT,a#$BDDAT; COMPARE DATA 

6$ : BRANCH IF GOOD 

PC, ,aMERCLFC : JUMP TO ERROR FOR CLR (BIT 5) 
sIN RHCS2 


—e 


> *CONTROL AND STATUS 1 REGISTER 


TST 
BEQ 
MOV 
BR 

MOV 


a#NUNIT sARE THERE MORE THAN ONE UNIT 
32% sBRANCH IF ONLY ONE UNIT 
finest. ,a#SGDDAT: GOOD DATA 


#4210,a#$GDDAT ;GOOD DATA 


C 
Ci 


dD 8 
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CZRIGD.P11 10-SEP-79 11:00 DRIVE CLE SEQ 0094 
ater 020206 013037 001126 33$: MOV @(RO)+,@#SBDDAT ; TEST DATA 
4157 020210 023737 001124 001126 CMP a#SGDDAT,a#S$BDDAT; COMPARE DATA 
4158 020216 001402 BEQ 7$ ;BRANCH IF GOOD 
4159 020220 004737 020702 JSR PC ,awERCLEC [JUMP TO ERROR FOR CLR BIT § 
4160 TIN RHCS2 
4161 
4162 S*ERROR 1 REGISTER 
cle 
4 
4165 020224 012737 000000 001124 78: mov #0 ,as#SGDDAT :GOOD DATA FOR ERROR TYPEOUT 
4166 020232 013037 001126 MOV a(RO)+,a#SBDDAT ; TEST DATA 
4167 020236 022737 000000 001126 CMP #0, a#SBDDAT [COMPARE DATA 
4168 020244 001402 BEQ 108 :BRANCH IF GOOD 
4169 020246 004737 020702 JSR PC ,awERCLEC JUMP TO ERROR FOR CLR (BIT 5) 
4170 TIN RHCS2 
4172 S*DESIRED SECTOR/TRACK REGISTER 
473 
4174 
4175 020252 012737 017437 001124 108: Mov #17437 ,as$GDDAT :GOOD DATA FOR ERROR TYPEOUT 
4176 020260 013037 001126 MOV @(RO)+,a#SBDDAT ; TEST DATA 
4177 020264 022737 017437 001126 CMP #17437, a#$BDDAT ;CCMPARE DATA 
4178 020272 001402 BEQ 118 :BRANCH IF GOOD 
4179 020274 004737 020702 JSR PC ,awERCLEC JUMP TO ERROR FOR CLR (BIT 5) 
4180 IN RHCS2 
4181 
4182 ;*ERROR 2 REGISTER 
“er 
4184 
4185 020300 012737 000000 0011246 118: Mov #0, a#SGDDAT ;GOOD DATA FOR ERROR TYPEOUT 
4186 020306 013037 001126 MOV @(RO)+,a#$BDDAT : TEST DATA 
4187 020312 022737 000000 001126 CMP #0, a#SBDDAT [COMPARE DATA 
4188 020320 001402 BEQ 128 :BRANCH IF GOOD 
4189 020322 004737 020702 JSR PC ,awmERCLFC : JUMP TO ERROR FOR CLR (BIT 5) 
4190 SIN RHCS2 
4191 
4192 S*OFFSET REGISTER 
4195 
419% 
4195 020326 012737 116000 001124 128: Mov #116000, a#$GDDAT :GOOD DATA FOR ERROR TYPEOUT 
4196 020334 013037 001126 MOV a(RO)+,a#$BDDAT ; TEST DATA 
4197 020340 022737 116000 001126 CMP #116000 ,a#$BDDAT :COMPARE DATA 
4198 020346 001402 BEQ 13$ ;BRANCH IF GOOD 
4199 020350 004737 020702 JSR PC ,awERCLFC :JUMP TO ERROR FOR CLR (BIT 5) 
4200 TIN RHCS2 
4 
4202 :*DESIRED CYLINDER ADDRESS REGISTER 
‘o: 
4204 
4205 020354 012737 001777 001124 13%: MOV #1777, a#SGDDAT ;GOOD DATA FOR ERROR TYPEOUT 
4206 020362 013037 001126 MOV a(RO)+, a#$BDDAT ; TEST DATA 
4207 020366 022737 001777 001126 CMP #1777, a#$BDDAT COMPARE DATA 
4208 020374 001402 BEQ 14% [BRANCH IF GOOD 
4209 020376 004737 020702 JSR PC ,awERCLFC :JUMP TO ERROR FOR CLR (BIT 5) 


4210 > IN RHCS2 


e 


CZRJGDO,RPOG/5/6 DSKLS CTRLRI 
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CZRJGD.P 


020402 
020410 
020414 
020422 
020424 


020430 


020460 


020464 
020472 
020476 
020504 
020506 


020512 


020540 


020544 
020552 
020556 
020564 
020566 


020572 
020600 


004737 


012737 


001402 
004737 


012737 


001402 


000000 
001126 
000000 


020702 


002020 
002016 
001126 
001124 


020702 


000400 
001126 
000400 


020702 


000700 
001126 
001000 
000700 


020702 


002010 
001126 
002010 


020702 


0020 
0011 


to — 
orm 
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001124 
001126 


001124 
001124 


001126 


001124 
001126 


001124 


001124 
001126 


001124 


148: 


15$: 


16$: 


17$: 


208: 


218: 
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DRIVE CLEAR 


>tERROR 3 REGISTER 


MOV #0,a#$GDDAt :GOO0D DATA FOR ERROR TYPEOUT 

MOV Q(RO)+,a#S$BDDAT ; TEST DATA 

CMP #0,a#SBDDAT ;C°MPARE DATA 

BEQ 15$ ;BRANCH IF GOOD 

JSR PC ,a#ERCLFC ; JUMP TO ERROR FOR CLR (BIT 5) 
IN RHCS2 


stATTENTION SUMMARY REGISTER 


MOV O#TOTALAT,@#S$GDDAT;SET ALL BITS OF DRIVE PRESENT IN RHAS 
BIC Q#ATTENT ,@#SGDDAT ;CLEAR ONLY WORKING DRIVE BIT 

MOV a(RO)+,a#SBODAT GET RHAS 

CMPB O@#SGDDAT ,a#S$BDDAT ; COMPARE DATA 

BEQ 16$ ;BRANCH IF GOOD 

JSR PC ,aMERCLFC ; JUMP TO ERROR FOR CLR (BIT 5) IN RHCS2 


> *MAINTAINABILITY REGISTER 


MOV #400, a4$GDDAT 3;GOO0D DATA FOR ERROR TYPEOUT 

MOV Q(RO)+,a#$BDDAT ; TEST DATA 

CMP #400,a#S$BDDAT ; COMPARE DATA 

BEQ 17% ;BRANCH IF GOOD 

JSR PC, ,aMERCLFC : JUMP TO ERROR FOR CLR (BIT 5) 
:IN RHCS2 


s*DRIVE STATUS REGISTER 
MOV #700 ,a#$GDDAT :GOOD DATA FOR PRINTOUT 


MOV a(RO)+,-(SP) :GET RHDS1 
MOV (SP) ,a#$BDDAT TEST DATA 
BIC #PROG, (SP) ;CLEAR PROG BIT 


CMP #700, (SP)+ ; COMPARE DATA 
BEQ 208 ;BRANCH IF GOOD 
JSR PC ,aWERCLFC ; JUMP TO ERROR FOR DRIVE CLEAR 


>*DRIVE TYPE 


MOV Q#SAVDT ,a#S$GDDAT ;GOOD DATA FOR ERROR TYPE9UT 
MOV a(RO)+,a#$BDDAT ; TEST DATA 
CMP Q#SAVDT ,a#$BDDAT ; COMPARE DATA 
BEQ 21% ;BRANCH IF GOOD 
JSR PC ,@MERCLFC ; JUMP TO ERROR FOR CLR (BIT 5) 
7 IN RHCS2 


:*SERIAL NUMBER REGISTER 


MOV O*SAVSN,A#SGDDAT ;GOOD DATA FOR ERROR TYPEQOUT 
MOV Q(R)*,a#$BDDAT ; TEST DATA 


SEQ 0095 


an 


F 8 
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CZRJGD.P11 10-SEP-79 11:00 T44 DRIVE CLEAR SEQ 0096 Ci 
4267 020604 023737 002012 001126 CMP @#SAVSN,@#SBDDAT ;COMPARE DATA 
4268 020612 001402 BEQ 228 ;BRANCH IF GOOD 
4269 020614 004737 020702 JSR PC ,awERCLFC > JUMP TO ERROR FOR CLR (BIT 5) 
4270 IN RHCS2 
4271 
4272 :*ECC1 POSITION 
whe 
4 
4275 020620 012737 000000 001124 228: MOV #0, a#$GDDAT :GOOD DATA FOR ERROR TYPEOUT 
4276 020626 013037 001126 MOV Q(RO)+,a#$BDDAT ; TEST DATA 
4277 020632 022737 000000 001126 CMP #0, a#SBDDAT > COMPARE DATA 
4278 020640 001402 BEQ 23% BRANCH IF GOOD 
4279 020642 004737 020702 JSR PC ,a#ERCLFC ; JUMP TO ERROR FOR CLR (BIT 5) 
4280 IN RHCS2 
4281 
4282 s*ECC2 PATTERN 
8 
4285 020646 012737 000000 001124 238: MOV #0,a#SGDDAT ;GOOD DATA FOR ERROR TYPEOUT 
4286 020654 013037 901126 MOV a(RO)+,a#$BDDAT ; TEST DATA 
4287 020660 022737 000000 001126 cmp #0,a#S$BDDAT > COMPARE DATA 
4288 020666 001402 BEQ 24% ;BRANCH IF GOOD 
4289 020670 004737 020702 JSR PC ,aMERCLFC ; JUMP TO ERROR FOR CLR (BIT 5) 
4290 IN RHCS2 
4291 
4292 
acer s;*LOOK-AHEAD REGISTER 
4294 
4295 020674 005720 248: TST (RO)+¢ sAS THE LOOK-AHEAD REG. CANNOT BE PREDICTED 
osae :1T 1S NOT CHECKED AFTER AN INIT 
4 
md >*CURRENT CYLINDER ADDRESS REGISTER 
4 
4300 020676 005720 258: TST (RO)+ sAS THE CURRENT CYL REG. CANNOT BE PREDICTED 
4301 sAFTER AN INIT IT IS NOT CHECKED 
4302 
4303 020700 208: 
ot 020700 000413 ae TS145 ;BRANCH OVER JSR 
4 
4306 020702 014037 042402 ERCLFC: MOV -(RO), @MREGADR ;FAILING REGISTER ADDRESS 
4307 020706 104001 ERROR 1 sCLR FUNCTION = 10 IN RHCS1 DID 
4308 sNOT CLEAR APPROPIATE BITS 
4309 ;OR CLEARED EXTRA BITS 
4310 020710 005720 TST (RO) + sUNDO =-(RO) FOR ERROR 
4311 020712 000207 RTS PC ;RETURN TO ABOVE PROGRAM 
4312 sOR CLEARED EXTRA BITS 
4313 020714 005720 TST (RO)+ sUNDO -(RO) FOR BAD DATA 
4314 020716 004737 042766 JSR PC ,@#CHECKT :CHECK THAT DVA,RDY,DPR,DRY = 1 
4315 020722 104401 062562 TYPE ~CPHALT :AND THAT NO OTHERS = 1. CANNOT CON- 
4316 sTINUE TESTING IF BOTH AREN'T TRUE 
isd 020726 000000 HALT :STOP THE TEST 
4 
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020744 
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020756 
020762 
020770 


020774 
021000 


021002 
021006 
021010 
021016 
021020 
021026 
021034 


021036 


021054 
021062 


021070 
021074 
021076 
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000004 


004737 
012777 


005077 
013777 
017746 


005737 
001416 


022726 


000415 


022726 


013777 


004037 
001632 
003160 
000023 
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001000 
000045 
042732 
000001 
160662 


002074 
160702 


002036 


001456 
001456 


001455 
001210 


000632 
000632 


000631 
001210 


043424 


MACY11 


002032 


160702 


160650 


001210 


001210 
160616 


001210 


001210 
160562 
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144 DRIVE CLEAR 


* @eeerererererererrerrererrerererererererererrereteneeeeerereterese 


SeTEST 45 


SEEK COMMAND TEST 


yee THE SEEK COMMAND WILL BE LOADED INTO RHCS1 WITH GO 
lee THEN ALL REGISTERS WILL BE CHECKED 
ie RH CLEAR WILL BE GIVEN 
pee THEN ALL REGISTERS WILL BE CHECKED 
bd pe eeeerererrereecereererereererereerrereneeraeeereneneeereraeeeee 
1$145: SCOPE 
MOV WSTACK,SP ;RESET STACK 
MOV #TTNO,Q#TSTNM =: THIS SAVES TEST NUMBER 
JSR PC ,a#CLDISK SINIT AND SET UP GENERAL REG. CORRES. 
[AND UNIT NUMBER 
MOV #DMD , ARHMR SET DIAGNOSTIC MODE BIT 
:THIS ENABLES COMMANDS WITHOUT MOL 
ZAND HOLDS RHLA FROM MOVING 
CLR @RHDST :MAKE DESIRED SECTOR TRACK LEGAL 
MOV @#SEECOM,@RHCS1 :LOAD SEEK COMMAND INTO CONTROLLER 
MOV ARHCC,=(SP) :GET CURRENT CYLINDER 


>*FOLLOWING ARE TWO BLOCKS OF CODE TO LOAD RHCA WITH THE PROPER 
;*ADDRESS DEPENDING UPON WHETHER THE DRIVE IS AN RPO6 OR RPO4 


ie sMOVE DRIVE TYPE FLAG TO ITSELF TO TEST 


9$: MOV 
108: MOV 


11$: CMP 


#814.,(SP)¢ 
9$ 

#814. ,aeSTMPS 
10$ 

#813. ,aaSTMP5S 
Q#STMP5 ,ARHCA 
14% 
#410.,(SP)¢ 
12% 

#410. ,a#STMPS 
13% 


#409. ,a#STMP5 
QaSTMPS ,ARHCA 


; TREAT THE DRIVE AS AN RPO4 


; TREAT THE DRIVE AS AN RPO6 
31S CURRENT CYLINDER SAME AS 814, ? 


;BRANCH IF YES TO MAKE RHCA = 815, 
;GET READY TO MAKE RHCA = 814. 
sFILL RHCA 


[GET READY TO MAKE RHCA = 813. 
;MAKE DESIRED CYLINDER 814., OR 813. 
;SAVE REGISTERS 


; TREAT THE DRIVE AS AN RFOS 

:1S CURRENT CYLINDER SAME AS 410. ? 
;BRANCH IF YES 70 MAKE RHCA = 409. 
:GET READY TO MAKE RHCA = 410. 

sFILL RHCA 

:GET READY TO MAKE RHCA = 409. 

sMAKE DESIRED CYLINDER 410., OR 409. 


>*SAVE REGISTERS FOR COMPARISON AFTER GO 


14$: JSR 
RHw( 
RE INTO 
19. 


RO, @#SAVER 


:*GIv—E GO 10 COMMAND 


7 SAVE 
7 FROM 


=1t0 
;NUMBER OF REGISTERS SAVED 


Ci 
SEQ a Cl 
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CZRIGD.P11 


021102 


021132 
021136 
021140 
021142 


021144 


021152 
021156 
021160 
021162 
021164 
021166 
021170 


021172 
021176 
021200 


021206 


021210 


021212 
021216 
021222 


021230 


052777 


004037 
001632 
002114 
000023 


113737 


004037 
003160 


021212 
013705 
060505 
016537 


104001 


000207 


042737 


000001 


000001 
020000 
000200 


043424 


003205 


043626 


047736 
001630 


000040 
001774 
000001 


000001 
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160530 


002141 


042402 


2$: 


160430 


003166 


H 8 
10-SEP-79 11:11 PAGE 99 
SEEK COMMAND TEST 


BIs #G0,aRHCS1 ;GO 10 COMMAND 
;*CHANGE SAVED REGISTERS TO EXPECTED VALUES 
#GO,Q#REINTO+6 ;SAVED RHCS1 


BIS 
BIS #PIP,@MREINTO*30 ; SAVED RHDS1 
BIC #WDORY ,Q#REINTO*30 ;SAVED RHDS1 


s*AFTER GO HAS BEEN GIVEN FOR SEEK COMMAND 
aS ~ paint AGAIN SO THAT COMPARISONS CAN 
;* ON 


JSR RO, a#SAVER ; SAVE 

RHWC ; FROM 

WRF ROM ;10 

7. ;NUMBER OF REGISTERS SAVED 


7*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
>*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
:*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 


MOVB Q#REINTO*+25 ,a#WRFROM*+25;SAVE UPPER RHAS 


> *COMPARE REGISTERS BEFORE SEEK COMMAND 
z*W1TH CONTENTS AFTER GO IS ISSUED 


JSR RO, a#COMPAR ; COMPARE 

REINTO ;GOOD BUFFER 

WRF ROM ; TEST BUFFER 

9. >; NUMBER 

1$ ;RETURN FOR ERROR 

1$ 7 SAME 

2$ RETURN FOR GOOD COMPARISON 
MOV O#ERWORD,RS : GETTING READY TO INDEX 

ADD R5,R5 DOUBLE ERROR WORD 

MOV RHWC=2(R5), AWREGADR FAILING REGISTER ADDRESS 
ERROR 1 ; IMPROPER REGISTER CHANGE 


;AFTER SEEK COMMAND 
WITH GO IS GIVEN 
RTS PC RETURN TO COMPARISON 


:*NOW GIVE INIT AND GET GO AND PIP DOWN 


BIS WCLR,AR2 sRH INITILIZE 
MOV Q#UNIT,aR2 ;REINSTATE UNIT NUMBER 
MOV #DMD ,ARHMR ;SET DIAGNOSTIC MODE BIT 


THIS ENABLES COMMANDS WITHOUT MOL 
;AND HOLDS RHLA FROM MOVING 


*CHANGE REGISTERS TO EXPECTED VALUE 
BIC #GO,QMREINTO*6O [SAVED RHCS1 


ee 


CZRJGDO,RPO4/5/6 DSKLS CTRLRI 
10-SEP-79 11:00 


CZRIGD.P11 


021236 


021260 


021266 


021276 


021300 


021306 
021312 
021314 
021316 


021320 
021322 
021324 
021326 
021332 


021334 
021342 


021344 
021346 
021346 
021352 


021360 
021366 


004037 
001632 
002114 
000023 


113737 


004037 
003160 
002114 
000023 


021326 
021326 
021346 
013705 
060505 


016537 
104001 


000207 


004737 
012777 


013777 
005077 


004037 
001632 


020000 
000200 
160416 
001210 


043424 


903205 


043626 


047736 
001630 


042732 
000001 


002074 
160260 


043424 


MACY11 30A(1052) 
145 


002141 


042402 


160300 


160252 


3$: 


4$: 


1 8 
10-SEP-79 11:11 PAGE 100 
SEEK COMMAND TEST SEQ 0099 


BIC #PIP,@#REINTO*30 ; SAVED RHDS1 
Bis WORY ,a#REINTO*30 ; SAVED RHDS1 
MOV @RHLA,@#REINTO*+42;SAVED RHLA 
MOV Q#STMPS ,AMREINTO*44 ; SAVED RHCC 


S*AFTER INITILIZE SAVE REGISTERS SO THAT 
> *COMPARES CAN BE DONE 


JSR RO, @#SAVER 7 SAVE 
RHWC ; FROM 


310 
;NUMBER OF REGISTERS SAVED 


;*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
> *OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
3*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 


MOVB Q#REINTO+25,a#WRFROM+25;SAVE UPPER RHAS 


> *COMPARE REGISTERS AFTER INITIALIZE 


JSR RO,a#COMPAR ; COMPARE 
REINTO ;GO0D BUFFER 
WRF ROM 3; TEST BUFFER 
19, sNUMBER OF REGISTERS TO BE 
: COMPARED 
3$ s;RETURN POINT FOR ERROR 
3$ > SAME 
4% ;RETURN POINT FOR GOOD COMPARISON 
MOV a#ERWORD,RS :GETTING READY TO INDEX 
ADD R5,R5 :DOUBLE ERROR WORD 
MOV RHWC-2(R5) ,AMREGADR ; FAILING REGISTER ADDRESS 
ERROR J s IMPROPER REGISTER 


;CONTENTS AFTER GIVING AN 
sINITILIZE FOLLOWING A 
;SEEK COMMAND 


RTS PC ;RETURN TO COMPARISON 
;GOOD COMPAR] SON 

JSR PC, ,a#CLDISK INIT AND SET UP GENERAL REG. 
;AND UNIT NUMBER 

MOV #DMD ,ARHMR ;SE1 DIAGNOSTIC MODE BIT 


; THIS ENABLES COMMANDS WITHOUT MOL 
7 AND HOLDS RHLA FROM MOVING 


MOV O#SEECOM,ARHCS1 ;LOAD SEEK COMMAND INTO RHC 
CLR @RHCA DESIRED CYLINDER ADDRESS 


s*SAVE REGISTERS FOR sitet AFTER GO 


JSR RO, @#SAVER ; SAVE 
RHC ;FROM 


eS 


an 


CZRIGDO,RPO4/5/6 DSKLS CTRLRI 
10-SEP-79 11:00 


CZRIGD.P11 


021400 
021402 


021404 


021412 
021420 
021426 


021434 
021440 
021442 
021444 


021446 


021454 
021460 


021510 


021512 


021514 
021520 
021524 


003160 
000025 


052777 


052737 
052737 
042737 


004037 
001632 
002114 
000023 


113737 


004037 


104001 


000207 


000001 


000001 
020000 
000200 


043424 


003205 


043626 


047736 
001630 


000040 
001774 
000001 


MACY11 30A(1052) 
145 


160226 


003166 
003210 
003210 


002141 


5$: 


042402 


6$: 


160126 


J 8 
10-SEP-79 11:11 PAGE 101 
SEEK COMMAND TEST 
REINTO 310 
19. ;NUMBER OF REGISTERS SAVED 


;*GIVE GO TO SEEK COMMAND 
BIS #G0,aRHCS1 ;GO TO SEEK COMMAND 


>*CHANGE SAVED REGISTERS TO EXPECTED VALUES 
#GO,a#REINTO*6 ;SAVED RHCS1 


BIS 
BIS #PIP,Q#REINTO*+30 ; SAVED RHDS! 
BIC #WDRY ,@#REINTO*+30 ; SAVED RHDS1 


;tAFTER GO HAS BEEN GIVEN TO SEEK COMMAND 
*SAVE REGISTERS AGAIN SO THAT COMPARISONS CAN 


:*BE DONE 

JSR RO, a#SAVER 7 SAVE 

RHWC ;FROM 

WRF ROM ;10 

19. ;NUMBER OF REGISTERS SAVED 


7*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
;tOPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS 1S 
7*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
MOVB Q@#REINTO+25 ,aM#WRFEROM+25; SAVE UPPER RHAS 


> *COMPARE REGISTERS BEFORE COMMAND 
stW1TH CONTENTS AFTER GO IS GIVEN 


JSR RO,a#COMPAR ; COMPARE 

REINTO ;GOOD BUFFER 

WRF ROM TEST BUFFER 

19, ; NUMBER 

5$ ;RETURN FOR ERROR 

5$ ; SAME 

6% :RETURN FOR GOOD COMPARISON 
MOV a#ERWORD,R5S ;GETTING READY TO INDEX 

ADD R5,R5 ;DOUBLG ERROR WORD 

MOV RHWC-2(R5S) ,aMREGADR ; FAILING REGISTER ADDRESS 
ERROR 1 ; IMPROPER REGISTER CHANGE 


AFTER COMMAND 
WITH GO IS GIVEN 


RTS PC ;RETURN TO COMPARISON 
:*NOW GIVE INIT AND GET GO AND PIP DOWN 

BIS #CLR,AR2 sRH INITILIZE 

MOV Q#UNIT ,aR2 ;REINSTATE UNIT NUMBER 


MOV #DMD ,QRHMR SET DIAGNOSTIC MODE BIT 
7 THIS ENABLES COMMANDS WITHOUT MOL 


sAND HOLDS RHLA FROM MOVING 
>*CHANGE REGISTERS TO EXPECTED VALUE 


SEQ 0100 


CZRJGDO,RPO4/5/6 DSKLS CTRLRI 
10-SEP-79 11:00 


CZRJGD.P11 


021532 
021540 


021562 


021566 


021576 


021600 


021606 
021612 
021614 
021616 


021620 
021622 
021624 


021626 


021642 


021644 
021646 


042737 


005037 


004037 


000023 


113737 


004037 
003160 
002114 
000023 


021626 
021626 
021646 


013705 
060505 
016537 
104001 


000207 


000001 


003224 


043424 


003205 


043626 


047736 
001630 


MACY11 30A(1052) 
145 


002141 


042402 


7$: 


8$: 


k 8 
10-SEP-79 11:11 PAGE 102 
SEEK COMMAND TEST 


BIC #GO,Q#REINTO+6 ;SAVED RHCS1 
Bic #PIP,@#REINTO*30 ; SAVED RHDS1 
BIS #ORY ,@#REINTO*30 ;SAVED RHDS1 
MOV @RHLA,Q#REINTO*42; SAVED RHLA 
CLR @FREINTO+44 ;SAVED RHCC 


StAFTER INITIALIZE SAVE REGISTERS SO THAT 
;*COMPARES CAN BE DONE 


JSR RO, a#SAVER ; SAVE 

RHWC ; FROM 

WRF ROM :10 

19. ;NUMBER OF REGISTERS SAVED 


;*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
;*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS iS 
3*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
MOVB @#REINTO*25,a#@WRFROM*+25;SAVE UPPER RHAS 


> *COMPARE REGISTERS AFTER INITALIZE 


JSR RO, a#COMPAR ; COMPARE 
REINTO ;GOOD BUFFER 
WRF ROM TEST BUFFER 
19, ;NUMBER OF REGISTERS [0 BE 
; COMPARED 
7$ ;RETURN POINT FOR ERROR 
7$ > SAME 
8$ ;RETURN POINT FOR GOOD COMPARISUN 
MOV a#ERWORD,RS :GETTING READY TO INDEX 
ADD R5,R5 ;DOUBLE ERROR WORD 
MOV RHWC=2(R5) ,@MREGADR ; FAILING REGISTER ADDRESS 
ERROR 1 7# CONTENTS AFTER GIVING AN 
; _ COMMAND 
RTS PC RETURN TO COMPARISON 


;GOOD COMPAR] SON 


SEQ 0101 


aon 


—— 


CZRIGDO.2°04/5/6 DSKLS CTRLRI 
CZRJGD.P11 





021646 
021650 
021654 
021662 


021666 


021674 


021702 


021712 


021714 


021722 
021730 
021736 


021744 


021760 


021762 
021766 


022072 


022072 
022076 


022100 
022104 
022106 


10-SEP-79 


000004 
012706 
012737 
004737 


012777 


013777 


004037 
001632 
003160 
000023 


052777 


052737 
052737 
042737 


005737 


001047 


104401 
000441 


013746 
104405 


004037 
001632 
002114 


11:00 


001000 
000046 
042732 


000001 


902046 


043424 


000001 


000001 
020000 
000200 


001100 
020000 


021770 


001774 


043424 


MACY11 30A(1052) 
145 


002032 


157764 


157736 
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10-SEP-79 11:11 PAGE 103 
SEEK COMMAND TEST SEQ 0102 


--@eereerereerrerererererererererererereeeeeeakteteeeenenereeeeteee 


:*TEST 46 UNLOAD COMMAND TEST 
ae THE UNLOAD COMMAND WILL BE LOADED INTO RHCS1 WITH GO 
ew THEN ALL REGISTERS WILL BE CHECKED 
tad RH CLEAR WILL BE GIVEN 
pp eeeeererrereererrererereereerereeeeteeeeeeeeekeeeeReAeaReeeEes 
1ST46: SCOPE 
MOV #STACK,SP RESET STACK 
MOV MTINO,Q@#TSTINM =; THIS SAVES TEST NUMBER 
JSR PC, ,aa#CLDISK INIT AND SET UP GENERAL REG. 
;AND UNIT NUMBER 
MOV #DMD ,@RHMR 7SET DIAGNOSTIC MODE BIT 
; THIS ENABLES COMMANDS WITHOUT MOL 
;AND HOLDS RHLA FROM MOVING 
MOV @#UNLOAD,@RHCS1 ;LOAD UNLOAD COMMAND INTO RH 
> *SAVE REGISTERS FOR COMPARISON AFTER GO 
JSR RO, @#SAVER ; SAVE 
RHWC ; FROM 


37658: 
64$: 


5$: 


310 
sNUMBER OF REGISTERS SAVED 


;*GIVE GO TO UNLOAD COMMAND 
BIS #G0,@RHCS1 :GO TO UNLOAD COMMAND 


;*CHANGE SAVED REGISTERS 10 tapes VALUES 

BIS #GO,@#REINTO*+6 ;SAVED RHCS1 

B1S #PIP,a#REINTO*30 ;SAVED RHDS1 

BIC WDRY ,@#REINTO*30 ; SAVED RHDS1 

TST aaSPASS ;1S THIS FIRST PASS 

BNE 5$ :BRANCH IF NOT FIRST PASS 
BIT #Swi3,aSwR ; INHIBIT ERROR PRINT HIGH? 
BNE 5$ :BRANCH IF SW13 HIGH 

TYPE oy 23 TYPE ASCIZ STRING 


BR 64$ :GET OVER THE ASCI2Z 
SASCIZ <15><12>/1F DRIVE CONNECTED ‘’STAND BY’ LAMP SHOULD BE LIT ON DRIVE NO / 


MOV Q#UNIT,-(SP) ;UNI1 UNDER TEST 


:*AFTER GO HAS BEEN GIVEN TO UNLOAD COMMAND 
7 *SAVED REGISTERS AGAIN SO THAT COMPARISONS CAN 


7*BE DONE 

JSR RO, a#SAVER : SAVE 
RHWC ; FROM 
WRF ROM :10 


CZRIGDO,RPOG/5/6 DSKLS CTRLRI 
10-SEP-79 11:00 


CZRJGD.P11 


022110 


022112 


022120 


022146 
022154 


022156 


022160 
022164 
022170 


022176 
022204 
022212 
022220 
022226 


022236 


022240 


022246 


000023 


113737 


004037 


016537 
104001 


017737 


004037 
001632 
002114 
000023 


113737 


004037 


003205 


043626 


047736 
001630 


000040 
001774 
000001 


000001 


157450 


043424 


003205 


045626 


MACY11 30A(1052) 
146 


002141 


042402 


157462 


003166 


003222 


002141 


2$: 


a 8 
10-SEP-79 11:11 PAGE 104 
UNLOAD COMMAND TEST SEQ 0103 


19. NUMBER OF REGISTERS SAVED 


;*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
;tOPERATION THE UPPER BYTE OF RHAS WILi BE SAVED AS IS 
;*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
MOVB @#REINTO*+25 ,a#WREROM*+25;SAVE UPPER RHAS 


>*COMPARE REGISTERS BEFORE UNLOAD COMMAND 
;*W1TH AFTER GO 


JSR RO, a@#COMPAR ; COMPARE 

REINTO ;GOOD BUFFER 

WRF ROM 7 TEST BUFFER 

19. ;NUMBER 

1$ ;RETURN FOR ERROR 

1$ 3 SAME 

2% ;RETURN FOR GOOD COMPARISON 
MOV @#ERWORD,RS ;GETTING READY TO INDEX 

ADD R5,R5 ;DOUBLE ERROR WORD 

MOV RHWC-2(R5S) ,AMREGADR ; FAILING REGISTER ADDRESS 
ERROR 1 ; IMPROPER REGISTER CHANGE 


;AFTER UNLOAD COMMAND 
s;WwITH GO IS GIVEN 


RTS PC RETURN TO COMPARISON 
;*NOW GIVE INIT AND GET ALL GO AND PIP DOWN 

BIS #CLR,aR2 ;RH INITILIZE 

MOV Q#UNIT ,aR2 ;REINSTATE UNIT NUMBER 
MOV #OMD ,ARHMR ;SET DIAGNOSTIC MODE BIT 


; THIS ENABLES COMMANDS WITHOUT MOL 
;AND HOLDS RHLA FROM MOVING 


CHANGE REGISTERS TO EXPECTED VALUE 
C #GO,QMREINTO+6 ;SAVED RHCS1 
C #PIP,@#REINTO*+30 ; SAVED RHDS! 
S #DRY,@#REINTO*30 ; SAVED RHDS1 
V QRHLA, @#REINTO*+42;SAVED RHLA 


*AFTER INITIALIZE SAVE REGISTERS SO THAT 
;*COMPARES CAN BE DONE 


JSR RO, @#SAVER 7 SAVE 

RHWC ; FROM 

WRFROM :10 

19. ;NUMBER OF REGISTERS SAVED 


:*COMPARE REGISTERS AFTER INITIALIZE 

7*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 

7 *OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS 15 
;*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
MOVB O@#REINTO*25 ,a#WRFROM+25;SAVE UPPER RHAS 


JSR RO, a#COMPAR ; COMPARE 


—_—— 
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C7RIGD.P11 10-SEP-79 11:00 146 UNLOAD COMMAND TEST SEQ 0105 
4711 
4712 022306 032777 000020 156624 Bil #SW4 ,aSWR i TEST FOR NO OFFSET OR RIC 
4713 022314 001402 BEQ 6$ :1f = 0, DO THE NEXT TwO TESTS 
4714 022316 000137 023274 JMP TST51 SKIP THE NEXT TWO TESTS ------een-e--e ) 
og bbe 022322 6$: CONTINUE WITH NEXT TWO TESTS 
4717 
4718 
4719 spe eeeerererererererererererereeeeeereteAeereereeeeReeereneeeneee 
mi Si tTEST 47 OFFSET COMMAND TEST 
4722 pee THE OFFSET COMMAND WILL BE LOADED INTO RHCSi WITH GO 
4723 pee THEN ALL REGISTERS WILL BE CHECKED 
4724 pee RH CLEAR WILL BE GIVEN 
ate? pee THEN ALL REGISTERS WILL BE CHECKED 
4727 sp ereeereeeeeeeetererrrrerrererrrrreteeereeKeeeKeeeeeeeReeenerene 
4728 022322 000004 TST47: SCOPE 
4729 022324 012706 001000 MOV WSTACK,SP sRESET STACK 
4730 022330 012737 000047 002032 MOV #TINO,Q@#TSTINM ;THIS SAVES TEST NUMBER 
4731 022336 004737 042732 JSR PC ,a#CLDISK : INIT AND SET UP GENERAL REG. 
4732 :AND UNIT NUMBER 
4733 022342 012777 000001 157310 MOV #DMD, QRHMR :SET DIAGNOSTIC MODE B17 
4734 THIS ENABLES COMMANDS WITHOUT MOL 
nit :AND HOLDS RHLA FROM MOVING 
4 
4737 :*GIVE ONE INDEX PULSE TO CLEAR RHLA BEFORE THE START OF THIS TEST 
4738 022350 052777 000004 157302 BIS #MINX,Q@RHMR :SET INDEX PULSE 
ys 022356 042777 000004 157274 BIC #MINX,ARHMR CLEAR INDEX 
4 
4741 :*T0 ENABLE LOOP ON THIS TEST THE POSITIONER HAS TO 
1h :*BE BROUGHT TO CENTER LINE 
4 
4744 022364 017777 157306 157260 MOV @RHCC,@RHCA SET DESIRED CYLINDER TO RHCC 
4745 022372 013711 002074 MOV avSEECOM,aR1 :SEEK COMMAND TO RHCS1 
746 022376 005211 INC ari :G0 TO SEEK COMMAND 
474 
4748 :*FOUR SECTOR CLOCKS ARE GIVEN TO TAKE PCSITIONER OFF OFFSET POSITION 
4749 022400 012700 000004 MOV #4,R0 : COUNTER 
4750 0224604 012777 000011 157246 5$: MOV #MSTCK!DMD,Q@RHMR- :SET SECTOR CLOCK 
4751 022612 012777 000001 157240 MOV #DMD ,aRHMR seeset SECTOR CLOCK 
4752 022420 005300 DEC RO UNT 
are 022422 001370 BNE 5$ ere 1F NOT COMPLETE 
4754 
4755 022424 004737 042732 JSR PC ,a#CLDISK : INIT AND SET UP GENERAL REG. 
4756 :AND UNIT NUMBER 
4757 022430 012777 000001 157222 MOV #DMD ,@RHMR SET DIAGNOSTIC MODE BIT 
4758 > THIS ENABLES COMMANDS WITHOUT MOL 
Te AND HOLDS RHLA FROM MOVING 
476 
4761 0224636 013777 002076 157174 MOV a#OFSETC,@RHCS1 ;LOAD AN OFFSET BIT 
ee 022444 012777 000001 157176 MOV #OF 25, aRHOF SET AN OFFSET BIT 
476 
4764 s * SAVE megtsveRs FOR COMPAR 1 SON AFTER GO 
4765 022452 004037 043424 JSR RO, a#SAVER AVE 


4766 022456 001632 RHWC FROM 


an 


aa 
~~ 


022460 
022462 


022464 


022472 
022500 
022506 


022514 
022520 
022522 
022524 


022526 


022534 


022552 


022554 
022560 
022562 
022570 


022572 


022574 
022600 


022604 


022612 
022620 


003160 
000025 


052777 


004037 
001632 
002114 
000023 


113737 


004037 
003160 


022574 


013705 
060505 
016537 
104001 


000207 


ye \ Yara DSKLS CTRLRI 
JGD.P 10-SEP-79 11:00 


000001 


000001 
020000 
000200 


043424 


003205 


043626 


047736 
001630 


000040 
001774 
000001 


000001 
000001 


. F 
10-SEP-79 11:11 PAGE 107 
OFFSET COMMAND TEST SEQ 0106 
REINTO :10 
19, NUMBER OF REGISTERS SAVED 


;*GIVE GO TO OFFSET COMMAND 
BIS #G0,aRHCS1 ;G0 TO OFFSET COMMAND 


CHANGE SAVED REGISTERS TO pd, VALUES 
S #GO,Q#REINTO*6 ;SAVED RHCS1 

Ss #P1P,aWREINTO*30 ;SAVED RHDS1 

C #ORYa#REINTO*30 ;SAVED RHDS1 


;*AFTER GO HAS BEEN GIVEN TO OFFSET COMMAND 
;*SAVE REGISTERS AGAIN SO THAT COMPARISONS CAN 


;* 
Bl 
Bl 
Bl 


;*BE DONE 

JSR RO, a@#SAVER ; SAVE 

RHWC 3; FROM 

WRFROM 310 

19. ;NUMBER OF REGISTERS SAVED 


;*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
;*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS 1S 
3*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
MOVB Q@#REINTO+25 ,AMWREROM*+25;SAVE UPPER RHAS 


> *COMPARE REGISTERS BEFORE OFFSET COMMAND 
;*W1TH AFTER GO 


JSR RO, a#COMPAR ; COMPARE 

REINTO ;GOOD BUFFER 

WRF ROM i TEST BUFFER 

19, NUMBER 

1$ RETURN FOR ERROR 

1$ ; SAME 

2$ ;RETURN FOR GOOD COMPARISON 
MOV a#ERWORD,R5S ;GETTING READY TO INDEX 

ADD R5,R5 ;DOUBLE ERROR WORD 

MOV RHWC=2(R5S) ,QMREGADR ; FAILING REGISTER ADDRESS 
ERROR 1 ; IMPROPER REGISTER CHANGE 


:AFTER OFFSET COMMAND 
sWITH GO IS GIVEN 


RTS PC ;RETURN TO COMPARISON 
;*NOW GIVE INIT AND GET ALL GO AND PIP DOWN 

BIS #CLR,aR2 ;RH INITILIZE 

MOV Q#UNIT,aR2 ;REINSTATE UNIT NUMBER 
MOV #OMD ,aRHMR ;SET DIAGNOSTIC MODE BIT 


; THIS ENABLES COMMANDS WITHOUT 
;AND HOLDS RHLA FROM MOVING 


*CHANGE REGISTERS TO EXPECTED VALUE 
BIC #GO,QMREINTO*6 ;SAVED RHCS1 
BIC #OF 25, Qa#REINTO*16; SAVED RHOF 


CZRIGDO,RPO4/5/6 DSKLS CTRLRI 
10-SEP-79 11:00 


CZRIGD.P11 


022626 
022634 
022642 


022650 
022654 
022656 
022660 


022662 


022670 


022700 


022702 
022704 
022706 


022710 
022714 


022716 
022724 


022726 
022730 


004037 
001632 
002114 
000023 


113737 


004037 
003160 
002114 
000025 


022710 
022710 
022730 


013705 
060505 
016537 
104001 


000207 


020000 
000200 
157026 


043424 


003205 


043626 


047736 
001630 


MACY11 30A(1052) 
147 


002141 


042402 


3$: 


4$: 


D9 
EP-79 11:11 PAGE 108 
COMMAND TEST SEQ 0107 


BIC #PIP,A#REINTO*30 ;SAVED RHDS! 
BIS WORY ,Q#REINTO*+30 ; SAVED RHDS1 
MOV ORHLA,QMREINTO+42; SAVED RHLA 


tAFTER INITIALIZE SAVE REGISTERS SO THAT 
> *COMPARES CAN BE DONE 


_—m 


JSR RO, @#SAVER ; SAVE 
RHWC ; FROM 


310 
;NUMBER OF REGISTERS SAVED 


;*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
;*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
;*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
MOVB Q@MREINTO*25 ,a#WRFROM*+25;SAVE UPPER RHAS 


> *COMPARE REGISTERS AFTER a 


JSR RO, a#COMPAR ; COMPA 
REINTO ;GOOD BUFFER 
WRF ROM :TEST BUFFER 
1 ;NUMBER OF REGISTERS TO BE 
; COMPARED 
3$ ; RETURN POINT FOR ERROR 
3$ SAME 
4$ RETURN POINT FOR GOOD COMPARISON 
MOV a#ERWORD,RS ;GETTING READY TO INDEX 
ADD R5,R5 ;DOUBLE ERROR WORD 
MOV RHWC=2(R5), QHREGADR ; FAILING ht tae ADDRESS 
ERROR 1 ; IMPROPER REGISTE 


:CONTENTS AFTER GIVING AN 
SINITIALIZE FOLLOWING A 
;OF FSET COMMAND 

RTS PC ;RETURN TO COMPARISON 


;GGOD COMPARISON 


Gus oa 





CZRIGDO,RP04/5/6 DSKLS gin 
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CZRIGD.P11 


022730 


022744 
022750 


022756 


022764 


022772 


023000 
023004 
023006 
023010 


0235012 


023020 


023042 


023044 
023052 
023060 


023066 
023072 
023074 


000004 


004737 
012777 


052777 
042777 
013777 


004037 
001632 
003160 
000023 


052777 


042737 


004037 
001632 
002114 


001000 
000050 
042732 


000001 


000004 


000004 


002100 


043424 


000001 


000004 
000011 
000001 


000001 
020000 
000200 


043424 


MACY11 30A(1052) 
147 


002032 


156702 


156674 
156666 


156640 


156620 


156626 
156620 


. F 
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OFFSET COMMAND TEST 


--@teterrerrrerrrrererererereererrererereteeeereneeeeetereeeererere 


*TEST 50 RETURN TO CENTER LINE COMMAND TEST 


THE RETURN TO CENTER LINE COMMAND WILL BE LOADED INTO RHCS1 WITH GO 
THEN ALL REGISTERS WILL BE CHECKED 

RH CLEAR WILL BE GIVEN 

THEN ALL REGISTERS WILL BE CHECKED 


-s@heteererterererrererererereererrereretereeeeeeeeenereeeaereneteeee 


T8150: 


5$: 


SCOPE 
MOV WSTACK,SP ;RESET STACK 
MOV MTTNO,Q#TSTNM 8; THIS SAVES TEST NUMBER 
JSR PC ,a#CLDISK 7; INIT AND SET UP GENERAL REG. 
;AND UNIT NUMBER 
MOV #DMD , aRHMR ;SET DIAGNOSTIC MODE BIT 
; THIS ENABLES COMMANDS WITHOUT MOL 
;AND HOLDS RHLA FROM MOVING 
>*GIVE ONE INDEX PULSE TO CLEAR RHLA BEFORE THE START OF THIS TEST 
BIS #MINX ,ARHMR ;SET INDEX PULSE 
BIC #MINX,QRHMR ;CLEAR INDEX 
MOV Q@#RETCL,@RHCS1 ;LOAD RETURN TO CENTER LINE COMMAND INTO RHCS1 
> *SAVE REGISTERS FOR COMPARISON AFTER GO 
JSR RO, @#SAVER 7 SAVE 
RHWC ; FROM 


REINTO ;T0 
19, ;NUMBER OF REGISTERS SAVED 


:*GI1VE GO TO RETURN TO CENTER LINE COMMAND 
BIS #G0,aRHCS1 ;GO TO RETURN TO CENTER COMMAND 


; *FOUR a os CLOCKS ARE GIVEN TO TAKE POSITIONER TO CENTER LINE 
MOV 4,R0 ; COUNTER 
MOV #MSTCK DMD, ARHMR:SET SECTOR CLOCK 


MOV #OMD ,ARHMR Be hed SECTOR CLOCK 

DEC RO ; COUN 

BNE 5$ ‘BRANCH IF NOT COMPLETE 
;*CHANGE SAVED REGISTERS TO EXPECTED VALUES 
BIS #GO,Q#REINTO*6 ; SAVED RHCS1 

BIS #PIP,a#REINTO*30 ;SAVED RHDS! 

BIC #DRY ,Q@#REINTO*+30 ; SAVED RHDS! 


;*AFTER GO HAS BEEN GIVEN TO RETURN TO CENTER LINE COMMAND 
*SAVE REGISTERS AGAIN SO THAT COMPARISONS CAN 


;*BE DONE 

JSR RO, a#SAVER > SAVE 
RHC : FROM 
WRF ROM 310 


SEQ 0108 


CZRIGDO ,RPOG/5/6 DSKLS CTRLRI 


CZRJGD.P11 


4916 
7 


023076 


023100 


023144 


023146 
023152 
023156 


023164 
023172 
023200 
023206 


023214 
023220 
023222 
023224 


023226 


023234 
023240 


10-SEP-79 11:00 


000023 


113737 


004037 
003160 


023146 


013705 
060505 
016537 
104001 


000207 


017737 


004037 
001632 
002114 
000023 


113737 


004037 
003160 


003205 


043626 


047736 
001630 


000040 
001774 
000001 


000001 
020000 
000200 
156462 


043424 


003205 


043626 


MACY11 30A(1052) 
150 


002141 


042402 


156474 


003166 
003210 
003210 
003222 


002141 


23: 
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RETURN TO CENTER LINE COMMAND TEST SEQ 0109 


19. NUMBER OF REGISTERS SAVED 
;*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
;*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 


;*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
MOVB Q#REINTO*+25 ,a#WRFROM*+25;SAVE UPPER RHAS 


; *COMPARE ah BEFORE RETURN TO CENTER LINE COMMAND 


;tWITH AFTER 
JSR RO,a#COMPAR ; COMPARE 
REINTO :GOOD BUFFER 
WRF ROM ; TEST BUFFER 
19. ; NUMBER 
1$ ;RETURN FOR ERROR 
1$ 7 SAME 
2$ RETURN FOR GOOD COMPARISON 
MOV A#ERWORD,RS ;GETTING READY TO INDEX 
ADD RS,R5 ;DOUBLE ERROR WORD 
MOV RHWC-2(R5) ,@MREGADR ; FAILING REGISTER ADDRESS 
ERROR 1 71M PROPER REGISTER CHANGE 


ZAFTER RETURN TO CENTER LINE COMMAND 
sWITH GO IS GIVEN 


RTS PC sRETURN TO COMPARISON 

>*NOW GIVE INIT AND GET ALL GO AND PIP DOWN 

BIS #CLR,aR2 sRH INITILIZE 

MOV Q#UNIT,aR2 sREINSTATE UNIT NUMBER 

MOV #DMD,aRHMR ;SET DIAGNOSTIC MODE BIT 
> THIS ENABLES COMMANDS WITHOUT MOL 
;AND HOLDS RHLA FROM MOVING 

:*CHANGE REGISTERS TO EXPECTED VALUE 

BIC #GO,QMREINTO+6 ;SAVED RHCS1 

BIC WPIP, aMREINTO+30. :SAVED RHDS1 

BIS #DRY ,AMREINTO+30 =; SAVED RHDS|I 

MOV QRHLA,AMREINTO+42;SAVED RHLA 

>tAFTER INITIALIZE SAVE REGISTERS SO THAT 

:*COMPARES CAN BE DONE 

JSR RO, a#SAVER 7 SAVE 

RHWC ;FROM 

WRF ROM :10 

19. sNUMBER OF REGISTERS SAVED 


>*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 

;*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS 1S 

7*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
mOVB AMREINTO+25 ,a#WREROM+25;SAVE UPPER RHAS 


>®COMPARE REGISTERS AFTER INITIALIZE 
JSR RO,a#COMPAR ; COMPARE 
RE INTO ;GOOD BUFFER 


an 


CZRIGDO,RPO4/5/6 DSKLS CTRLRI 
10-SEP-79 11:00 


CZRJGD.P11 


023242 
023244 


023246 
023250 
023252 


023254 


023270 


023272 
023274 


002114 
000025 


023254 
023254 
023274 


013705 


104001 


000207 


047736 
001630 042402 


MACY11 30A(1052) 
150 


3$: 


4$: 
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RETURN TO CENTER LINE COMMAND TEST 


WRFROM ; TEST BUFFER 
19. sNUMBER OF REGISTERS TO BE 
; COMPARED 
3$ sRETURN POINT FOR ERROR 
3$ 7 SAME 
4% ;RETURN POINT FOR GOOD COMPARISON 
MOV Q#ERWORD,RS sGETTING READY TO INDEX 
ADD R5,R5 ;DOUBLE ERROR WORD 
MOV RHWC-2(R5) ,AMREGADR ; FAILING REGISTER ADDRESS 
ERROR 1 : IMPROPER REGISTER 


; CONTENTS AFTER GIVING AN 
s INITIALIZE FOLLOWING A RETURN TO 
;CENTER LINE COMMAND 

RTS PC ;RETURN TO COMPARISON 


;GOOD COMPAR] SON 
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CZRIGD.P11 10-SEP-79 11:00 150 RETURN TO CENTER LINE COMMAND TEST SEQ 0111 

4991 
4992 
4993 pp et eeeerreerererereerrerrerererrrerererereeeerereTeeeeeeeeenTeee 
499% TeTEST 51 RECALIBRATE COMMAND TEST 
4996 yee THE RECALIBRATE COMMAND WILL BE LOADED INTO RHCS1 WITH GO 
4997 lee THEN ALL REGISTERS WILL BE CHECKED 
4998 ee RH CLEAR WILL BE GIVEN 
4999 lee THEN ALL REGISTERS WILL BE CHECKED 
5001 pp teeeeeererererrererererererereerrererenerereeeeeereereeeeeeeee 
5002 023274 000004 TST51: SCOPE 
$003 023276 012706 001000 MOV #STACK,SP RESET STACK 
5004 023302 012737 000051 002032 MOV #TTNO,aa#TSTNM sTHIS SAVES TEST NUMBER 
5005 023310 0046737 042732 JSR PC, ,@#CLDISK ; INIT AND SET UP GENERAL REG. 
5006 ;AND UNIT NUMBER 
5007 023314 012777 000001 156336 MOV #DMD ,ARHMR ;SET DIAGNOSTIC MODE BIT 
5008 ; THIS ENABLES COMMANDS WITHOUT MOL 
5009 ;AND HOLDS RHLA FROM MOVING 
5010 
5011 
oot :*GIVE ONE INDEX PULSE TO CLEAR RHLA BEFORE THE START OF THIS TEST 
5014 023322 052777 000004 156330 BIS #MINX ,ARHMR 7SET INDEX PULSE 
4h 023330 042777 000004 156322 BIC #MINX ,QRHMR ;CLEAR INDEX 

6 
aoe 023336 013777 002050 156274 MOV Q#RECALI,@RHCS1 ;LOAD RECALIBRATE COMMAND INTO RHCS1 
5019 > *SAVE REGISTERS FOR COMPARISON AFTER GO 
5020 023344 004037 043424 JSR RO, a#SAVER 7 SAVE 
5021 023350 001632 RHWC 3; FROM 
5022 023352 003160 REINTO :10 
cote 023354 000023 19, ;NUMBER OF REGISTERS SAVED 
5025 :*GIVE GO TO RECALIBRATE COMMAND 
cast 023356 052777 000001 156254 BIS #G0,@RHCS1 7G0 TO RECALIBRATE COMMAND 
5028 
5029 ;*FOUR SECTOR CLOCKS ARE sp hee TO _— POSITIONER TO CYLINDER 0 
5030 023364 012700 000004 MoV #4 ,R0 ; COUNTER 
5031 023370 012777 000011 156262 5$: MOV #MSTCK!DMD, DRHMR: SET SECTOR CLOCK 
5032 023376 012777 000001 156254 MOV #DMD ,ARHMR 3 SECTOR CLOCK 
5033 023404 005300 DEC RO ; COUN 
zone 023406 001370 BNE 5$ ‘BRANCH IF NOT COMPLETE 
5036 
5037 >*CHANGE SAVED REGISTERS TO EXPECTED VALUES 
5038 023410 052737 000001 003166 BIS #GO,Q#REINTO*6 ;SAVED RHCS1 
5039 023416 052737 020000 003210 BIS #PIP,a#REINTO+ 30. SAVED RHDS1 
rat 023424 042737 000200 003210 BIC 

4 
5042 ;*®AFTER GO HAS BEEN GIVEN TO RECALIBRATE COMMAND 
5045 s*SAVE REGISTERS AGAIN SO THAT COMPARISONS CAN 
5044 7*BE DONE 
5045 023432 004037 043424 JSR RO, a#SAVER 7 SAVE 


#DRY.a#REINTO*30 :SAVED RHDS1 
5046 023436 001632 RHWC >FROM 
j 
| 


CZRIGDO,RPOG/5/6 DSKLS CTRLRI 
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CZRJGD.P11 


023440 
023442 


023444 


023452 


023470 


023472 
023476 
023500 
023506 


023510 


023512 
023516 
023522 


023530 
023536 
023544 
023552 


023560 
023564 
023566 
023570 


023572 


023600 


002114 
000025 


113737 


004037 
003160 


023512 


013705 
060505 
016537 
104001 


000207 


042737 
042737 
052737 
017737 


004037 
001632 
002114 
000023 


113737 


0040357 


003205 


043626 


047736 
001630 


000040 
001774 
000001 


000001 
020000 
000200 
156116 


043424 


003205 


043626 


MACY11 30A(1052) 
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002141 


042402 


156130 


002141 


2s: 
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RECALIBRATE COMMAND TEST 
WRF ROM ;10 
19. NUMBER OF REGISTERS SAVED 
>*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
;*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 


;*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
MOVB Q@#REINTO+25 ,aM#WRFROM*+25; SAVE UPPER RHAS 


> *COMPARE REGISTERS BEFORE RECALIBRATE COMMAND 
s*WITH AFTER GO 


JSR RO,a#COMPAR ; COMPARE 

REINTO ;GOOD BUFFER 

WRF ROM TEST BUFFER 

19. ; NUMBER 

1$ RETURN FOR ERROR 

1$ > SAME 

2% :RETURN FOR GOOD COMPARISON 
MOV a#ERWORD,R5S :GETTING READY TO INDEX 

ADD R5,R5 ;DOUBLE ERROR WORD 

MOV RHWC=2(R5), QNREGADR ;FAILING REGISTER ANDRESS 
ERROR 1 : IMPROPER REGISTER CHANGE 


TAFTER RECALIBRATE COMMAND 
:W1TH GO IS GIVEN 


RTS PC RETURN TO COMPARISON 

>*NOW GIVE INIT AND GET ALL GO AND PIP DOWN 

BIS #CLR,AR2 sRH INITILIZE 

MOV Q#UNIT ,AR2 ;REINSTATE UNIT NUMBER 

MOV #DMD ,aRHMR SET DIAGNOSTIC MODE BIT 
> THIS ENABLES COMMANDS WITHOUT MOL 
AND HOLDS RHLA FROM MOVING 

;*CHANGE REGISTERS TO EXPECTED VALUE 

BIC #GO,Q#REINTO*6 ;SAVED RHCS1 

BIC #PIP,a#REINTO* 30° SAVED RHDS1 

BIS #WORY ,Q#REINTO*30 ;SAVED RHDS1 

MOV @RHLA,@#REINTO*+42; SAVED RHLA 

S*AFTER INITIALIZE SAVE REGISTERS SO THAT 

;*COMPARES CAN BE DONE 

JSR RO,@#SAVER 7 SAVE 

RHWwC ; FROM 

WRF ROM :10 

19. NUMBER OF REGISTERS SAVED 


:*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 

> *OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 

:*S0 THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
MOVB QPREINTO*+25,a#WRFEROM*+25;SAVE UPPER RHAS 


;*COMPARE REGISTERS AFTER INITIALIZE 
JSR RO, a#COMPAR ; COMPARE 


SEQ O112 


Ci 


ooo 
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CZRIGD.P11 10-SEP-79 11:00 151 RECALIBRATE COMMAND TEST SEQ 0113 
5103 023604 003160 REINTO ; GOOD ahh on 
5104 023606 002114 WRF ROM ; TEST BUFFER 
5105 023610 000023 19. [NUMBER OF REGISTERS TO BE 
5106 ; COMPARED 
5107 023612 023620 3$ :RETURN POINT FOR ERROR 
5108 023614 023620 3$ ; SAME 
ee 023616 023640 4% [RETURN POINT FOR GOOD COMPARISON 
5111 023620 013705 047736 3$: MOV A#ERWORD,RS ;GETTING READY TO INDEX 
5112 023624 060505 ADD R5,R5 ;DOUBLE ERROR WORD 
5113 023626 016537 001630 042402 MOV RHWC=2(R5),@M#REGADR ;FAILING REGISTER ADDRESS 
5114 023634 104001 ERROR 1 ; IMPROPER REGISTER 
5115 :CONTENTS AFTER GIVING AN 
5116 INITIALIZE FOLLOWING A 
5117 ;RECALIBRATE COMMAND 
cise 023636 000207 RTS PC RETURN TO COMPAR] SON 
5120 023640 4$: ;GOOD COMPARISON 


kK 9 
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CZRIGD.P11 10-SEP-79 11:00 RECALIBRATE COMMAND TEST SEQ 0114 
$121 
5122 
5123 so erereeerererrereerererererererereererreneeeeerereeeeteeeereees eee 
31ss s*TEST 52 RELEASE COMMAND TEST 
5126 pee THE RELEASE COMMAND WILL BE LOADED INTO RHCS1 WITH GO 
5127 jee THEN ALL REGISTERS WILL BE CHECKED 
5128 pee RH CLEAR WILL BE GIVEN 
aie pee THEN ALL REGISTERS WILL BE CHECKED 
5131 ppetteeererererererererrrerererererrreteeneteretenenerenererterere 
5132 023640 000004 TST52: SCOPE « 
5133 023642 012706 001000 MOV @STACK,SP ;RESET STACK 
5134 023646 012737 000052 002032 MOV #TTINO,Q#@TSTNM 8 ;THIS SAVES TEST NUMBER 
5135 023654 004737 042732 JSR PC, ,a#CLDISK ; INIT AND SET UP GENCRAL REG. 
5136 ;AND UNIT NUMBER 
5137 023660 012777 000001 155772 MOV #DMD ,ORHMR 7SET DIAGNOSTIC MODE BIT 
5138 : THIS ENABLES COMMANDS WITHOUT MOL 
tes sAND HOLDS RHLA FROM MOVING 
4 
tot! 023666 013777 002054 155744 MOV QMRELEASE,@RHCS1 ;LOAD RELEASE COMMAND INTO RHCS1 
5143 :*SAVE REGISTERS FOR COMPARISON AFTER GO 
5144 023674 004037 043424 JSR RO, a#SAVER 7 SAVE 
5145 023700 001632 RHWC FROM 
5146 023702 003160 REINTO 310 
toy! 023704 000023 19, sNUMBER OF REGISTERS SAVED 
5149 . :*GiVE GO TO RELEASE COMMAND 
5150 023706 052777 000001 155724 BIS #G0,aRHCS1 :G0 TO RELEASE COMMAND 
44 023714 052777 000001 155736 BIS #DMD ,ARHAR 7SET DMD TO HOLD RHLA 
5153 s*CHANGE SAVED REGISTERS TO EXPECTED VALUES 
5154 s*AFTER GO HAS BEEN GIVEN TO RELEASE COMMAND 
5155 023722 052737 000001 003206 BIS #DMD ,Aa#REINTO*+26; SAVED RHMR 
es 023730 017737 155740 003222 MOV ARHLA, @MREINTO+42;SAVED RHLA 
5158 
5159 :*SAVE REGISTERS AGAIN SO THAT COMPARISONS CAN 
5160 >*BE DONE 
5161 023736 004037 043424 JSR RO, a#SAVER 3 SAVE 
$162 023742 001632 RHWC FROM 
$163 023744 002114 WRF ROM 3:10 
tye 023746 000023 19. sNUMBER OF REGISTERS SAVED 
6 
5166 :*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
5167 s*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
5168 :*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
te 44 023750 113737 003205 002141 MOVB Q#REINTO*+25, a#WRFROM+25;SAVE UPPER RHAS 
5171 
5172 s*COMPARE REGISTERS BEFORE RELEASE COMMAND 
5173 stwlTH AFTER GO 
5174 023756 004037 043626 JSR RO, a#COMPAR ; COMPARE 
5175 023762 003160 REINTO ;GOOD BUFFER 
5176 023764 002114 WRFROM ; TEST BUFFER 


CZRJGD.P11 


023766 


023774 


023776 
024002 
024004 
024012 


024014 
024016 


CZRJGDO,RPO4/5/6 DSKLS CTRLRI 
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000023 


024016 
013705 


104001 


000207 


MACY11 30A(1052) 
152 


001630 042402 
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RELEASE COMMAND TEST SEQ 0115 


UMBER 
RETURN FOR ERROR 
;RETURN FOR GOOD COMPARISON 


Q#ERWORD,R5S ;GETTING REAYD TO INDEX 
R5,R ;DOUBLE ERROR WORD 
RHWC=2(RS) ,AMREGADR ; FAILING REGISTER ADDRESS 
1 ; IMPROPER REGISTER CHANGE 
AFTER ait al COMMAND 
WITH GO IS GIVEN 
PC ;RETURN TO COMPARISON 


— 


CZRJGD.P11 
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ww 
_ 
oO 
— 


024016 


024044 


024050 


024052 
024054 
024060 
024066 


024072 
024100 
024104 
024112 
024116 
024122 
024124 
024126 


024130 
024134 


024140 


000004 


004037 


000000 


000004 


004737 


012777 
005077 
012777 
013711 
004037 
001632 
003160 
000023 


004737 
104401 


000000 
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RELEASE COMMAND TEST 


sy eeteeeeeererererereeerererterereretrrekeKeenerereteeeeeeKeeeeeee 


S*TEST 53 MAKE CURRENT CYLINDER = 0 


;,;eeeeerererererererrerererreerereetereneneeeneeneeeeeeneeeeee es 


15153: SCOPE 
001000 MOV #STACK,SP ;RESET STACK 
000053 002032 MOV #TTNO,@#TSTNM ©; THIS SAVES TEST NUMBER 
042732 JSR PC ,a#CLDISK INIT DRIVE 
000001 155614 MOV #OMD , ARHMR SET DIAGNOSTIC MODE 
045304 JSR RO,@M#MAKECYL | : SUBROUTINE TO GIVE A SEEK 
:COMMAND FOLOWED BY AN INIT 
:THIS SHOULD CHANGE RHCC 
0 ZCHANGE RHCC TO 0 
pp eteeeeereeererereareeetaetenereeeeetereneaneeeeeeeeeeeeeeaeee eee 
TTEST 54 LOOK AHEAD REGISTER 
jee A SEARCH COMMAND IS GIVEN FOR CYLINDER 0, TRACK 0, SECTOR 21. 
ie. THE LOOK AHEAD REGISTER IS CHECKED AFTER INDEX PULSE 
yee THE EXTENSION FIELD 1S CHECKED IN EACH SECTOR AFTER 
yee 128 BYTES THEN AGAIN AFTER 128 MORE BYTES THEN AGAIN AFTER 256 MORE BYTES 
lee THE SECTOR COUNT FIELD 1S CHECKED AFTER EACH SECTOR 
pee AT THE END ALL REGISTERS ARE CHECKED 
pytteeererererererereretrerereeeeeeeeeeeeeRAeeeeeeeeNeeAReRe eee 
1$154: SCOPE 
001000 MOV #STACK,SP ;RESET STACK 
000054 002032 MOV #TTNO,@#TSTNM ©: THIS SAVES TEST NUMBER 
042732 JSR PC ,a#CLDISK :INIT AND SET UP GENERAL REGISTERS 
;*THESE ARE REGULAR SET UPS FOR SEARCH COMMAND 
000025 155544 MOV #21.,@RHOST ;DESIRED SECTOR/TRACK REGISTER 
STRACK 0 SECTOR 21 
155546 CLR @RHCA :DESIRED CYLINDER =0 
010000 155536 MOV #FMT22,QRHOF = ;FORMAT BIT=1 (16 BITS PER WORD) 
002056 MOV a#SERCH,aR1 [FILL SEARCH COMMAND IN RHCS1 
:*NOW SAVE REGISTERS STARTING FROM RHWC IN WRITE FROM BUFFER 
043424 JSR RO, a#SAVER ;SAVE REGISTERS FOR COMPARISON 
AT THE END OF THE SEARCH 
RHWC TSTART SAVING FROM RHWC 
RE INTO :SAVE INTO REINTO 
19, :NUMBER OF REGISTERS SAVED 
042766 JSR PC ,a#CHECKT :CHECK THAT DVA.RDY.DPR,DRY = 1 
062562 TYPE =, CPHALT [AND THAT NO OTHERS = 1, CANNOT CON- 


; TINUE TESTING IF BOTH AREN'T TRUE 
HALT ;STOP THE TEST 


:*NOW THE DIAGNOSTIC MODE BIT WILL BE SET 
7*AND THE SEARCH OPERATION STARTED 


SEQ 0116 


aon 
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CZRIGDO, RPO4/5/6 DSKLS CTRLR| MACY11 30A(1052) 118 
CZRJGD.P11 10-SEP-79 11:00 154 LOOK AHEAD REGISTER SEQ 0117 
$247 024142 005037 001200 CLR aySTMPt sTHIS WILL HAVE THE EXPECTED 
8 ;VALUE OF RHLA REGISTER 
5250 024146 013700 001660 MOV Q#RHMR,RO sNOW RO HAS MAINTENANCE REG. ADDR. 
5251 024152 017703 155466 MOV @RHDST,R3 3GET DESIRED SECTOR/TRACK REG. | 
5252 024156 042703 177400 BIC #177400,R3 ‘GET SECTOR ONLY 
$253 024162 010337 053662 MOV R3,a#SECTR “DUPLICATE SECTOR 
5254 024166 012710 00000 MOV #DMD,aRO :$ 
5255 024172 052777 000001 155440 BIS #G0,aRHCS1 :60 
5256 024200 052710 000010 BIS #MSTCK, aro sSET SECTOR CLOCK 
5257 024204 042710 000010 BIC #MSTCK,aRO sCLEAR SECTOR CLOCK 
5258 024210 000240 NOP sALLOW TIME BETWEEN SECTOR CLOCKS 
5259 024212 052710 000010 BIS #MASTCK,aRO ;SET SECTOR CLOCK 
5260 024216 042710 000010 BIC #MSTCK,aRO sCLEAR SECTOR CLOCK 
5261 024222 000240 NOP sALLOW TIME BETWEEN SECTOR CLOCKS 
5262 024224 052710 000014 BIS #MINX'MSTCK,@RO ;SET INDEX AND SECTOR CLOCK 
$263 024230 012710 000001 MOV #DMD,aRO sRESET INDEX AND SECTOR CLOCK 
5264 024234 005703 TST R3 :1F SECTOR REQUIRED JUMP OUT 
pce? 024236 001555 BEQ 11% :BRANCH OF SECTOR ZERO REQUIRED 
5267 :*AFTER THE INDEX PULSE RHLA WILL BE = agg TO BE ZERO 
5268 >*AND STMP4 WILL BE SET UP TO COUNT BYTES 
5269 024240 012737 001140 001206 18: MOV #608. ,a#STMPS s THERE ARE 608 STTes PER SECTOR 
5270 024246 017737 155422 001126 MOV @RHLA.a#$SBDDAT :SAVE RHLA 
5271 024254 017737 155364 001720 MOV @RHDST,a#DST > SAVE DESIRED SECTOR TRACK 
§272 024262 023737 001200 001126 CMP Q#STMP1 ,@#SBDDAT a SHOULD BE —_ EXTENSION 
5273 , : FIELD EQUAL TO ZERO 
5274 024270 001414 BEQ 2$ BRANCH 1F GOOD 
$275 024272 013737 053662 001202 MOV ONSECTR,a#STMP2 :GET SECTOR SOUGHT 
5276 024300 160337 001202 $uB R3,aaSTMP2 sSTMP2 NOW HAS PRESENT SECTOR 
5277 024304 012746 001140 MOV #608. ,-(SP) : NUMBER OF BYTES PER SECTOR 
5278 024310 163716 001206 SUB aaSTMP4, (SP) > (SP)HAS PRESENT BYTE NUMBER 
5279 024314 012637 001204 MOV (SP)+, awSTMP3 ;PRESENT BYTE NUMBER 
5280 024320 104024 ERROR 24 sLOOK AHEAD REGISTER AT THE BEGINING OF A 
5281 sSECTOR IS IN ERROR 
5282 
5283 
5284 :*NOW THE 304 WORDS WILL START 
5285 s*FOR FIRST BYTE CLOCK WILL BE INDEPENDENT OF 
5286 s*SECTOR CLOCK THEN IT WILL COINCIDE FOREVER TILL 
aed :*THE BEGINNING OF NEXT SECTOR 
asoe ' >*ONE WORD ONLY THAT IS TWO BYTES 
5291 024322 012702 000010 2$: MOV #8. ,R2 :BYTE 
5292 024326 012705 000002 MOV #2,R5 “BYTES PER WORD 
5293 024332 000404 BR 4$ 
5294 024334 052710 000012 3$: BIS MMSTCK'MCLK,@RO ;SET SECTOR AND CLOCK 
$295 024340 042710 000012 BIC WMSTCK'MCLK.@RO :CLEAR SECTOR AND CLOCK 
5296 024344 052710 000002 4$: BIS #MCLK ,aRO “SET CLOCK 
5297 024350 042710 000002 BIC #MCLK ARO “CLEAR CLOCK 
$298 024354 005302 DEC R2 “BYTE COUNTER 
5299 024356 001372 BNE 4% :BRANCH IF BYTE NOT COMPLETE 
5300 024360 005337 001206 DEC aeSTMPG “BYTE COUNT DOWN 
5301 024364 012702 000007 MOV #7,R2 :SETUP FOR SECOND BYTE 
$302 024370 005305 DEC RS “1S WORD COMPLETE? 


B 10 
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CZRIG 
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5303 024372 001360 BNE 3$ sBRENCH IF NOT COMPLETE 

Sipe =10 GIVE SECTOR CLOCK AND CLOCK 
5306 :*NOW 303 WORDS ARE LEFT ALL ARE IDENTICAL 

5307 -*THAT 1S 606 IDENTICAL BYTES WILL BE GIVEN 

5308 :*RHLA WILL BE CHECKED STAR TO COUNT AFTER 

5309 > *BEGINNING OF SECTOR PULSE 

§310 :*AFTER 128 BYTES (2 BYTES ARE ALREADY GIVEN) 

5311 :*S0 127 MORE 

$312 :*THEN RHLA WILL BE CHECKED AFTER 128 MORE BYTES 

5313 **THEN RHLA WILL BE CHECKED AFTER 256 MORE BYTES 

5314 =*THEN THE TOTAL OF 608 BYTES WILL BE COMPLETED 

5315 > AND RHLA WILL BE MADE READY FOR NEXT SECTOR 

5316 :tAND RHLA WILL BE CHECKED 

$318 024374 012705 000100 MOV #64.,R5 :R5 WILL KEEP TRACK WHEN 

5319 “EXTENSION FIELD 1S TO BE CHECKED 
$320 024400 012701 000177 MOV #127.,R1 “FIRST TIME CHECK EXTENSION FIELD 
5321 “AFTER 127 MORE BYTES 

$322 024404 012702 000007 5$: MOV #7,R2 =CLOCKS PER BYTE COUNTER 

$323 024410 052710 000012 BIS #MSTCK'MCLK,@RO ;SET SECTOR CLOCK AND CLOCK 
$324 024414 042710 000012 BIC #MSTCK'MCLK,@RO ;CLEAR SECTOR CLOCK AND CLOCK 
5325 024420 052710 000002 6$: BIS #MCLK,aRO :SET CLOCK 

$326 024424 042710 000002 BIC #MCLK ,aRO sRESET CLOCK 

$327 024430 005302 DEC R2 :COUNT DOWN CLOCKS PER BYTE 
$328 024432 001372 BNE 6$ =BRANCH IF BYTE NOT COMPLETE 
5329 024434 005337 001206 DEC awSTMP4 :COUNT DOWN BYTES 

5330 024440 001436 BEQ 10$ :BRANCHOUT IF 608 BYTES DONE 
5331 024442 005301 DEC R1 =COUNT DOWN NUMBER OF BYTES 
5332 >TO CHECK EXTENSION FIELD 

5333 024444 001357 BNE 5$ *BRANCH IF EXTENSION FIELD NOT 
peee >TO BE CHECKED YET 

5336 :*NOW THE EXTENSION FIELD OF THE LOOK AHEAD REGISTER 
233? s*WILL BE CHECKED 

5339 024446 062737 000020 001200 ADD #20, aa"$TMP1 :GET TO THE NEXT EXTENSION 

5340 024454 017737 155214 001126 MOV QRHLA,@#$BDDAT ;GET RHLA FOR COMPARISON 

4 

5342 024462 017737 155156 001720 MOV @RHDST,a#DST :SAVE DESIRED SECTOR TRACK 

5343 024470 023737 001200 001126 CMP a#STMP1,A#$BDDAT ; CHECK VALUE OF RHLA 

5344 024476 001414 BEQ 7$ :BRANCH IF GOOD 

5345 024500 013737 053662 001202 MOV QMSECTR,@#$STMP2 :GET SECTOR SOUGHT 

5346 024506 160337 001202 SUB R3,ae$TMP2 “$TMP2 NOW HAS PRESENT SECTOR 
5347 024512 012746 001140 MOV #608. ,-(SP) “NUMBER OF BYTES PER SECTOR 
$348 024516 163716 001206 SUB a#STMPS, (SP) > (SP) HAS PRESENT BYTE NUMBER 
5349 024522 012637 001204 MOV (SP)+,a#$TMP3  ;PRESENT BYTE NUMBER 

$350 024526 104025 ERROR 25 =LOOK AHEAD ERROR IN THE MIDDLE 
333) “OF A SECTOR IS IN ERROR 

$353 024530 060505 7$: ADD R5,R5 :GET NEXT STEP TO CHECK EXTENSION FIELD 
$354 024532 010501 MOV R5,R1 :PUT IN COUNTER 

$355 024534 000723 BR 5$ :BRANCH BACK SECTOR 

5356 :1S NOT COMPLETE 


5357 024536 062737 000020 001200 10%: ADD #20,aaSTMP1 
5358 024544 052710 000010 BIS #MSTCK ORO ; THESE TWO INSTRUCTIONS GIVE 





CZRJGDO,RPO4/5/6 DSKLS gin 
CZRIGD.P11 1:00 


024550 


024562 


024566 
024570 


024572 


024616 


024622 
024630 


024636 
024644 
024652 


024660 
024664 
024666 
024670 


024672 


024700 
024704 


024706 
024710 
024712 
024714 
024716 
024720 


10-SEP-79 1 
042710 


042710 


005303 
001223 


012702 


042710 


052737 
053737 


052737 


052737 
013737 


004037 
001632 
002114 
000023 


113737 


004037 
003160 


002114 


013705 


000010 


000010 
000010 


000010 
000002 
000002 


000012 
000012 


100000 
002016 


000001 
100000 
001200 


043424 


003205 


043626 


047736 


MACY11 30A(1052) 
154 


003166 
063204 


003206 


003210 
003222 


002141 


nm 


138: 


new 


C 10 
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LOOK AHEAD REGISTER 


BIC #MSTCK ARO ;ONE SECTOR CLOCK EXTRA 
NOP ;ALLOW TIME BETWEEN SECTOR CLOCK 
BIS #MSTCK,aRO ; THESE TWO INSTRUCTIONS GIVE 
BIC #MSTCK ,aRO ;ONE SECTOR CLOCK EARLY 
;BEFORE THE NEXT SECTO 


R 
DEC R3 1S REQUIRED NO OF SECTORS COMPLETE 


BNE 1$ ;BRANCH IF NOT 


>*NOW THE REQUIRED SECTOR 1S REACHED 
;*ONE SECTOR CLOCK WILL BE GIVEN TO GET SECTOR PULSE 
;*DOWN AND HENCE ATA UP 


MOV #8.,R2 78 CLOCKS 

BIS #MCLK,aRO ;SET CLOCK 

BIC #MCLK,aRO s;CLEAR CLOCKS 

DEC R2 ;COUND DOWN 

BNE 12% sBRANCH IF 8 NOT DONE 


BIS MMSTCKIMCLK,@RO ;SET SECTOR AND CLOCK 
BIC WMSTCK!MCLK,@RO ;CLEAR SECTOR AND CLOCK 


;*NOW ALL REGISTERS WILL BE COMPARED 
>*SO FILL EXPECTED VALUE INTO SAVED LOCATIONS 


1S MSC, QMREINTO+6 ; INCLUDE SC IN SAVED RHCS1 

1S O#ATTENT,QMREINTO+24 ;FILL APPROPIATE ATTENTION 
7 1N SAVED RHAS 

Ss #DMD ,Q#REINT” 26 ;SET DMD IN RHMR SAVED 

S HATA, A#REINTU+30 ;SET ATA IN RHDS1 SAVED 

V O#STMP1,AMREINTO+42 ;MOVE EXPECTED VALUE 
; INTO RHLA SAVED 


> tAFTER SEARCH COMMAND 
> *SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE 


JSR RO, Q#SAVER 7 SAVE 
RHWC ; FROM 
WRF ROM :10 

19. ; NUMBER 


;*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
;*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
3*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
MOVB Q#REINTO+25 ,A#WRFEROM+25;SAVE UPPER RHAS 


;*COMPARE REGISTERS BEFORE SEARCH WITH AFTER 


JSR RO, a#COMPAR ; COMPAR 

REINTO ;GO BUFFER 

WRF ROM coos BUFFER 

18. UMBER 

13$ RETURN FOR ERROR 

13$ 7 SAME 

14% :RETURN FOR GOOD COMPARISON 
MOV Q#ERWORD ,R5 ;GETTING READY TO INDEX 


SEQ 0119 


D 10 
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RIGD.P 10-SEP-79 11:00 154 LOOK AHEAD REGISTER SEQ 0120 
5415 024724 060505 ADD RSLRS :DOUBLE ERROR WORD 
5416 024726 016537 001630 042402 MoV RHWC-2(RS) ,@WREGADR ; FAILING REG. ADDRESS 
$417 024734 104001 ERROR 1 :CONTENTS OF REGISTER 
5418 024736 000207 RTS PC :CHANGED AT END OF 
5419 024740 148: : SEARCH 
4 
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024740 


024760 
024766 


024772 
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000004 


004037 


000000 


MACY11 


001000 
006055 002032 
042732 


000001 
045304 


154672 


30A(1052) 
154 


E 10 
10-SEP-79 11:11 PAGE 122 
LOOK AHEAD REGISTER 


SEQ 0121 


sy eeeeeerrrrrrererrerrererrterrrrrrrrerrrreerereereKereereererereere 


MAKE CURRENT CYLINDER = 0 


s*TEST 55 


sy, ereeeerrererterererrerererrerrreeerrrrerereereeeeeeeeeeeereeAe eee 


TST55: 


SCOPE 


#STACK,SP 
A#TTNO,Q#TSTNM 
PC ,a#CLDISK 
#DMD ,ARHMR 
RO,@#MAKECYL 


;RESET STACK 

; THIS SAVES TEST NUMBER 
INIT DRIVE 

SET DIAGNOSTIC MODE 

; SUBROUTINE TO GIVE A SEEK 
;COMMAND FOLOWED BY AN INIT 
THIS SHOULD CHANGE RHCC 

; CHANGE RHCC TO 0 


ona 


Sacks aed 


F 10 
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CZRIGD.P11 10-SEP-79 11:00 155 MAKE CURRENT CYLINDER = 0 SEQ 0122 | 
5435 
5436 
5437 
et .SBTTL READ/WRITE ADDRESSING VIA RHMR 
5440 
5441 Pp eeeeekeeeeeeereteeeeeererteerreeerererreeeeteeneKtreeeeerereee 
evet :*TEST 56 WRITE HEADER AND DATA 1 
5444 pte WRITE CYLINDER 0, FORMAT 16 BIT PER WORD 
5445 pee TRACK 0, SECTOR 0, KEYS 0, NUMBER OF WORDS 256 OF O'S 
5446 pe AS EVERYTHING IS ZERO THIS PROVES VERY LITTLE 
5447 pee ANY ERROR LOGIC INDICATIONS ARE NOT CONCLUSIVE ON FIRST PASS 
Pr pee BECAUSE ERROR LOGIC HAS NOT BEEN CHECKED YET (ON FIRST PASS) 
5450 PPUeeeeee eee eeeeeeeeeeeeteterererrrrererrrretrekereeeereree eee eee 
5451 024774 000004 TST56: SCOPE 
5452 024776 012706 001000 MOV A@STACK,SP :RESET STACK 
th 025002 012737 000056 002032 MOV #TINO,Q@#TSTINM ;THIS SAVES TEST NUMBER 
5455 025010 012700 051436 MOV #SECGAP,RO POINTER 
5456 025014 012701 000460 MOV #304.,R1 > COUNTER 
5457 025020 012720 177777 1$: MOV #-1,(RO)+ CLEAR ‘'DISK'' AREA TO ALL ONES 
5458 025024 005301 DEC R1 : 
5459 025026 001374 BNE 1$ 3 
5460 025030 004737 042732 JSR PC,CLDISK :THIS 1S USED TO SET UP GENERAL 
ret! REGISTER CORRESPONDENCE 
4 
ee :*THESE ARE TO SET UP FOR DISKLESS USE ONLY 
4 
5465 025034 012737 010000 052754 MOV #FMT22,a#WCYL ;FORMAT 22=16 BIT WORDS AND 
5466 CYLINDER 0 
5467 025042 005037 052756 CLR a#WSECTR Ame gh SECTOR=0 
5468 025046 005037 052760 CLR OaeWKEY1 =0 
5469 025052 005037 052762 CLR a#WKEY2 aves 0 
5470 025056 012737 000400 053014 MOV #256. ,a#FNWORD O56 DATAWORDS 
5471 025064 004537 044140 JSR R5,aMCRC :G0 TO CALCULATE CRC 
5472 025070 052754 WCYL 
ahi 025072 052764 GCRC 
4 
eo :*THESE ARE REGULAR SETUPS FOR RH11 & ‘‘wRFROM'' OUTPUT BUFFER 
476 
5477 025074 012777 177374 154530 MOV #-260. ,aRHWC :256 DATA WORDS 4 HEADER WORDS 
5478 025102 012700 002114 MOV #WRFEROM,RO ;BUS ADDRESS TO BE 
5479 025106 010077 154522 MOV RO, @RHBA BUFFER '‘WRFROM'' 
5480 025112 012705 000403 MOV #259. ,R5 : COUNTER 
at! 025116 012720 010000 MOV #FMT22,(RO)4 FORMAT =16 BIT WORD 
4 
5483 025122 005020 2$: CLR (RO) + :SECTOR=0, TRACK=0,KEYS=0, ALL DATA=0 
5484 025124 005305 DEC R5 :& CYLINDER=0....S0 CLEAR ALL ‘‘WRFROM' 
5485 025126 001375 BNE 2$ sCONTINUE IF ALL 259 NOT COMPLETE 
5486 025130 005077 154510 CLR ARHDST sTRACK=0, SECTOR=0 
sc 
4 
5489 025134 004737 042766 JSR PC ,a#CHECKT CHECK THAT DVA,RDY,DPR,DRY = 1 


5490 025140 104401 062562 TYPE /CPHALT AND THAT NO OTHERS = 1. CANNOT CON@ 
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MAAN ASA 
WAAA ANT 


WANA 


025144 
025146 
025152 


025170 


025174 
025202 
025204 


025206 


025232 


025236 


025250 


025254 


025300 
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000000 
013711 
005037 


004737 


017737 
001401 
104040 


005737 
001034 
004737 
104401 
000000 
005037 
005037 


004037 


005037 


004037 


104010 


002066 
002006 


052600 


154432 


002006 


043156 
062562 


052534 
052536 


042650 


002006 


043626 
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154464 


001126 


5$: 


3$: 
4$: 


10-SEP-79 


11:11 


G6 10 
PAGE 124 


WRITE HEADER AND DATA 1 


HALT 
MOV 


Q#WRIFOR,@R1 


avERF 
#FMT22,QRHOF 


@RHCA 
PC ,a#COMWHD 


LG$ 


TINUE TESTING IF BOTH AREN'T TRUE 
;STOP THE TEST 


;GET READY FOR WRITE HEADER 

;AND DATA ede re IN RHCS1 

;CLEAR ERROR F 

FORMAT BIT=1 ie. BIT WORDS 

:CYLINDER 0 

[WRITE HEADER AND DATA FROM ‘‘WRFROM"’ 
; INTO THE RHMR REGISTER AND BACA INTO 
SCORE "'DISK'' AREA 


;*1F THE PROGRAM COMES BACK HERE WITHOUT ERROR 
7*PRINT OUTS FROM THE "‘COMWHD'' ROUTINE THAT MEANS 
;*ALL HEADER ON DISK IS GOOD IE. ONLY DATA IS 
;*T0 BE CHECKED TO SEE IF IT IS ZERO 


7*AND WRITE DATA GAP AND TOLERANCE GAP TO SEE IF THEY 
7*ARE ALL ZEROS (ECC1 AND ECC2 MAY NOT BE 0) AS WELL AS 
> *CHECKING RHWC FOR ZERO 


@RHWC ,$BDDAT 
5$ 


40 


a#ERFLGS 


T 


$157 
PC ,a#CHECKE 


CPHALT 


aawECC 
awwECC2 


;MOVE WORD COUNTER INTO BAD DATA 
;SHOULD HAVE COUNTED UP TO ZERO 

;RHWC DID NOT = 0 AFTER A WRITE 

;HEADER AND DATA 


i HAVE ANY ERRORS OCCURED? 
;BRANCH IF YES 
:CHECK THAT BITS = 


1 
CANNOT CONTINUE TESTING IF THEY DON'T 


:STOP THE TEST 
CLEAR ECC 


:*REINTO BUFFER IS FILLED WITH EXPECTED DATA OF ALL O'S 


JSR 


. WORD 
CLR 


RO,Q#CLAREA 
REINTO : 
eet ;10 


a#ERFLGS 


—wvo™~ 
on 


COMPAR 


;CLEAR "'REINTO"’ 
FROM 


sFILL WITH ZEROS 
;CLEAR ERROR FLAG 


>*COMPARE ‘‘REINTO'’ BUFFER WITH ‘"‘DISK"’ BUFFER 
J RO, aac HECK 


> CHE 

;GOOD BUFFER 

; TEST BUFFER 

[NUMBER OF WORDS CHECKED 
;RETURN POINT FOR ERROR HEADER 
;RETURN POINT FOR ERROR DATA 
;RETURN FOR GOOD COMPARISON 
;READ ERROR10 NEXT 

;RETURN TO ‘‘COMPAR™’ 

;WORD NOS : TO 256 ARE 

;DATA WORD 

1257 AND 288 ARE ECC 


SEQ 0123 


CZRIGDO,RPO4/5/6 DSKLS CTRLRI 
CZRJGD.P11 


5547 
5548 
5549 025302 000207 
5550 


10-SEP-79 11:00 


MACY11 30A(1052) 
156 


H 10 
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WRITE HEADER AND DATA 1 


RTS PC 


TOLERANCE GAP 


SEQ 0124 


Ci 
Ci 


CZRJGDO,RPO4/5/6 DSKLS CTRLRI 
Pil 11:00 


CZRJGD.P 


025304 
025306 
025312 


025320 


025336 


025342 
025350 


025402 


025404 
025412 
025416 
025422 


025426 
025432 


025452 


025460 
025464 


025470 


10-SEP-79 


000004 
012706 
012737 


012700 


004737 


012737 
012737 


901374 
012777 


004737 
104401 


000000 


001000 
000057 


051436 
000460 


042732 


010000 


000001 
052760 
052762 
000400 
044140 


177374 
002114 
154212 
010000 
000001 
000400 
177777 
000001 


042766 
062562 


MACY11 


002032 


052754 
052756 


053014 


154220 


154164 


1 10 
30A(1052) 10-SEP-79 11:11 PAGE 
156 WRITE HEADER AND DATA 1 


126 


py eeeerereerereererereerrrereeerereterreeeeeeeeeeeereeeeneTerere 


s*TEST 57 


WRITE HEADER AND 


ee WRITE CYLINDERO, FORMAT 1 
: SECTOR 1, KEYS 0, NUMBER OF WORDS 256 
adi OF ALL ONES. 

‘Ded ANY ERROR LOGIC INDICATIONS ARE NOT CONCLUSIVE ON FIRST PASS 
gue BECAUSE ERROR LOGIC HAS NOT BEEN CHECKED YET (ON FIRST PASS) 


;*e TRACK 0, 


DATA 2 
6 BITS PER WORD 


“*R@eeeeeeereeetererertererrerrrrerrrrerrrreteekereeeetereteneteeeeeest 


—s 
we 


157: SCOPE 


1$: CLR 


> * THESE 
MOV 


MOV 
CLR 
CLR 
MOV 
JSR 
WCYL 
GCRC 


> * THESE 


2$: MOV 


3$: MOV 


WSTACK,SP SRESET STACK 

HTINO,@#TSTNM  :THIS SAVES TEST NUMBER 

#SECGAP,RO POINTER 

#304.,R1 ‘COUNTER 

(RO)¢ “CLEAR SIMULATED "'DISK'' AREA IN CORE 

'§ 

PC ,aw#CLDISK ‘THIS IS USED TO SET GENERAL REGISTERS 

ARE TO BE SETUP FOR DISKLESS USE ONLY 

#EMT22,a#WCYL :FORMAT 22 = 16 BIT WORDS AND 
“CYLINDER 0 

#1, a#WSECTR “TRACK=0, SECTOR=1 

aMWKEYI “KEY1=0 

aeWwKEY2 sKEY2=0 

#256.,a#FNWORD :256 DATA WORDS 

RS, awCRC 'GO TO CALCULATE CRC 


ARE REGULAR SETUPS FOR THE RH11 AND ‘‘WRFROM'’ BUFFER 


#-260. ,aRHWC 


3256 DATA WORDS 4 HEADER WORDS 


#WRFROM,RO s THESE TWO INSTRUCTIONS GETS 
RO,@RHBA sADDR. OF WRFROM INTO RO AND 
7BUS ADDRESS REGISTER 
#FMT22,(RO)+ sFORMAT=16 BIT WORDS 
7 CYLINDER=0 
#1, (RO)+ sTRACK=0, SECTOR=1, KEYS=0 
(RO)+ *KEYI= 0 
(RO)+ *KEY2=0 
#256.,R5 ; COUNTER 


#-1,(R0)+ 
R5 


3$ 
#1, QRHDST 


PC ,a#CHECKT 
CPHALT 


;MOVE ALL ONES FOR DATA 


;BRANCH IF DATA NOT COMPLETE 
;TRACK=0 SECTOR=1 


7 CHECK THAT DVA,RDY,DPR,DRY = 1 
AND THAT NO OTHERS = 1. CANNOT CON- 


TINUE TESTING IF BOTH AREN'T TRUE 
STOP THE TEST 


CZRJIGDO,RPO4/5/6 DSKLS she 
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025472 
025476 


025514 


025520 
025526 
025530 


025532 


025556 


025562 


025602 
025604 


025606 


025612 


025636 


10-SEP-79 1 
013711 


005037 
012777 
005077 
004737 


017737 
001401 
104040 


005737 


005037 


004037 
003160 
004156 
177777 
004037 
004160 
004220 
000000 


005037 


004037 


104010 


002066 
002006 


052600 


154106 


002006 


043156 
062562 


052534 
052536 


042650 


042650 


002006 


043626 


MACY11 30A(1052) 
157 


154140 


001126 


6$: 


4$: 
5$: 


J_10 
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WRITE HEADER AND DATA 2 
MOV O#WRIFOR, aR 


CLR a#ERFLGS 
MOV hats aaa 


@RHCA 
JSR PC ,a#COMWHD 


;GET READY FOR WRITE HEADER AND 
;DATA WITH 62 IN RHCS1 

>CLEAR ERROR FLAG 

FORMAT BIT=1 (16 BIT WORDS) 


SEQ 0126 


;CYLINDER =0 
‘URITE HEADER AND DATA INTO ‘‘DISK'* AREA 


>*1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 


;*1S GOOD IE. ONLY THE DATA IS TO BE CHECKED TO SEE IF IT IS 
>*ALL ONES AND WRITE DATA GAP AND TOLERANCE GAP 10 SEE IF 


;*THEY ARE ALL ZEROS, - ECC1 AND ECC2 ARE NOT CHECKED. 


:*RHWC 1S CHECKED TO BE = 


MOV @RHWC ,SBDDAT 
BEQ 6% 
ERROR 40 


TST a#ERFLGS 


BNE TST60 

JSR PC ,@#CHECKE 
TYPE ,CPHALT 
HALT 


CLR aawECC) 
CLR a#wWwECC2 


0 


;LOAD WORD COUNTER JUST IN CASE 
; SHOULD BE = 0 

;RHWC DOES NOT = 0 AFTER A WRITE 
;HEADER AND DATA IS COMPLETED 


i HAVE ANY ERRORS OCCURRED? 
;BRANCH IF YES 
CHECK THAT BITS = 


1 
;CANNOT CONTINUE TESTING IF THEY DON'T 


:STOP THE TEST 
CLEAR ECC 
CLEAR ECC 


s*FILL “‘REINTO'’ BUFFER WITH EXPECTED DATA OF ALL 1°S 


JSR +f Q#CLAREA 
EINTO 
peintor<ess. *2> 
-WORD -1 
JSR RO,@#CLAREA 


REINTO+<256. #2> 
wetetiitiectocs 


CLR a#ERFLGS 


;FILL REINTO BUFFER 
; FROM 
310 


DATA 
FILL REST 


; CLEAR ERROR FLAG 


>*NOW COMPARE ‘'DISK'' BUFFER WITH ‘‘REINTO’’ BUFFER IN CORE 


JSR RO,a#COMPAR 
REINTO 


7 CHECK 

;GOOD BUFFER 

; TEST BUFFER 

NUMBER OF WORDS CHECKED 
;RETURN POINT FOR ERROR HEADER 
RETURN POINT FOR ERROR DATA 
RETURN FOR GOOD COMPARISON 
;READ ERROR 10 NEXT 

;RETURN TO COMPARE 

;WORD NOS 1 TO 256 ARE 

DATA WORDS 

;WORD NOS 257 AND 258 

;ARE ECC WHICH HAVE BEEN 


| 
>*FROM THE ‘‘COMWHD'' ROUTINE THAT MEANS ALL THE HEADER ON ‘'DISK’’ 
| 
| 
| 
| 
| 
| 


lake) 


CZRJGDO,RPO4/5/6 DSKLS ae 


C7RIGD. P11 10-SEP-79 1 


7 
er 025640 000207 


MACY11 30A(1052) 
157 


10-SEP-79 


11:11 


Kk 10 
PAGE 128 


WRITE HEADER AND DATA 2 


RTS PC 


; ZEROED 

;WORD NOS ng 

1S DATA G 

WORD NOS “60 TO 273 
;ARE TOLERANCE GAP 
[RETURN TO COMPARE 


SEQ 0127 


L 10 
finsee Bit -RP04/5/6 DSKLS CTRLR1 MACY11 30A(1052) 10-SEP-79 11:11 PAGE 129 


RJGD.P 10-SEP-79 11:00 157 WRITE HEADER AND DATA 2 SEQ 0128 
5672 
5673 ;eetererereererrerereererererererererereKereteteereeteeKereeeeees 
5674 SSTEST 60 WRITE HEADER AND DATA 3 
5675 tee WRITE CYLINDER 0 FORMAT 16 BITS PER WORD 
5676 pee TRACK 1, SECTOR 1, KEY 0, NUMBER OF WORDS 256 
5677 pee ALTERNATE ONES AND ZEROS (052525) 
5678 pee ANY ERROR LOGIC INDICATIONS ARE NOT CONCLUSIVE ON FIRST PASS 
eh ;** BECAUSE ERROR LOGIC HAS NOT BEEN CHECKED YET (ON FIRST PASS) 


5681 WEARS RBEBRAAAASAZASALLSAESESERS RSE RE SASE RRR ARRAS S RRR ERR R ERS R ERASERS SS 


5682 025642 0600004 1S1T60: SCOPE 

5683 025644 012706 001000 MOV #STACK,SP ;RESET STACK 

gene 025650 012737 000060 002032 MOV #TTNO,a#TSTNM sTHIS SAVES TEST NUMBER 

5686 025656 012700 051436 MOV #SECGAP,RO POINTER 

5687 025662 012701 000460 MOV #304. URI ; COUNTER 

5688 025666 012720 000377 1$: MOV #377, (RO) + sLOAD SIMULATED ‘‘DISK*' AREA WITH 377 
5689 025672 005301 DEC R1 3 

5690 025674 001374 BNE 1$ : 

5691 025676 004737 042732 JSR PC,CLDISK sTHIS 1S USED TO SET UP GENERAL 
| REGISTER CORRESPONDENCE 

rte :*THESE ARE TO BE SETUP FOR DISKLESS USE ONLY 

5696 025702 012737 010000 052754 MOV WEMT22 ,a#WCYL sFORMAT 22=16 BIT WORDS AND 
5697 CYLINDER 0 

5698 025710 012737 000401 052756 MOV #401,a#WSECTR sTRACK=1, SECTOR=1 

5699 025716 005037 052760 CLR aaWKEY) :KEY= =0 

5700 025722 005037 052762 CLR aaWKEY2 KEY2=0 

5701 025726 012737 000400 053014 MOV + ie ae 256 DATA WORDS 

5702 025734 004537 044140 JSR R5,a 7GO0 TO CALCULATE CRC 

5703 025740 052754 WCYL 

tha 025742 052764 GCRC 

are s*THESE ARE REGULAR SETUPS FOR RH11 AND ‘WRFROM’’ BUFFER 
5708 025744 012777 177374 153660 MOV #-260. ,aRHWC 7256 DATA WORDS 4 HEADER WORDS 
5709 025752 012700 002114 MOV #WRFROM,RO : THESE TWO INSTRUCTIONS GET 
5710 :ADDR. OF WRFROM INTO RO 

444 025756 010077 153652 MOV RO,@RHBA :AND BUS ADDRESS REGISTER 

5713 025762 012720 010000 MOV #FMT22,(RO)+ ;FORMAT=16 BIT WORDS 

5714 > CYLINDER=0 

5715 025766 012720 000401 2$: MOV #401, (R0)+ :TRACK=1, SECTOR=1, KEYS=0 

5716 025772 005020 CLR (RO)+ sKEY1=0 

5717 025774 005020 CLR (RO)+ KEY2=0 

5718 025776 012705 000400 MOV #256.,R5 ; COUNTER 

5719 026002 012720 052525 3$: MOV #052525, (R0)+ : MOVE ALTERNATE ONES FOR DATA 
5720 026006 005305 DEC R5 COUNT 

5721 026010 091374 BNE 3$ BRANCH IF DATA NOT COMPLETE 
are? 026012 012777 000401 153624 MOV #401,QRHDST sTRACK=1 SECTOR=1 

5724 026020 004737 042766 JSR PC ,a#CHECKT :CHECK THAT DVA,RDY,DPR,DRY = 1 
5725 026024 104401 062562 TYPE ,CPHALT sAND THAT NO OTHERS = 1. CANNOT CON- 
5726 sTINUE TESTING IF BOTH AREN'T TRUE 
5727 026030 000000 HALT STOP THE TEST 


CZRJGDO,RP04G/5/6 DSKLS CTRLRI 
10-SEP-79 11:00 


CZRIGD.P11 


PAAAAT NIT 
NNN NSS 
WWAWI AWWW 
ODONOUF INN — 


026032 


026054 


026060 
02606 
026070 


026072 


026116 


026122 


026146 


026152 


026176 


013711 


005037 
012777 
005077 
004737 


017737 
001401 
104040 


005737 


005037 


004037 


005037 


004037 


104010 


002066 
002006 
010000 


153576 
05260u 


153546 


002006 


043156 
062562 


052534 
052536 


042650 


042650 


002006 


043626 


MACY11 30A(1052) 
160 


153600 


001126 


6$: 


4$: 
5$: 


4" 10 
10-SEP-79 11:11 PAGE 130 
WRITE HEADER AND DATA 3 


MOV a#WRIFOR,AR1 


CLR avERFLGS ;CLEAR ERROR FLAG 

MOV #FMT22,aRHOF FORMAT BIT=1(16 BIT WORDS 

CLR @RHCA 7 CYLINDER=0 

JSR PC ,a#COMWkD WRITE HEADER AND DATA INTO ‘‘DISK"’ CORE 


:*1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
;*FROM THE ‘‘COMWHD'’ ROUTINE THAT MEANS ALL HEADER IN 
;*’DISK'' 1S GOOD. DATA IS TO BE CHECKED TO SEE 

s*1F 1T IS ALL 952525 AND WRITE DATA GAP AND 

;*TOLERANCE GAP TO SEE IF THEY ARE ALL ZEROS. 


;*RHWC 1S CHECKED TO BE = 0 


MOV @RHWC ,SBODAT ;LOAD AND TEST FOR ZERO 

BEQ 6$ ;RHWC SHOULD = 

ERROR 40 ;RHWC DID NOT = O AFTER A WRITE 
;HEADER AND DATA WAS COMPLETED 


:*ONLY ECC1 AND ECC2 ARE NOT CHECKED 


TST Qa#ERFLGS HAVE ANY ERRORS OCCURED? 

BNE TST61 ;;BRANCH IF YES 

JSR PC ,@#CHECKE :CHECK THAT BITS = 1 

TYPE ,CPHALT ;CANNOT CONTINUE TESTING IF THEY DON'T 


;GET READY FOR WRITE HEADER 
AND DATA WITH 62 IN RHCS1 


HALT ;STOP THE TEST 
CLR a#wECCl CLEAR ECC 
CLR a#wWwECC2 CLEAR ECC 


s*FILL “'REINTO’’ BUFFER WITH EXPECTED DATA 
JSR RO,@#CLAREA aha REINTO BUFFER 


REINTO ; 

REINTO+<255.*2> :10 

WORD 52525 sDATA 

JSR RO,@#CLAREA sFILL REST 
REINTO+<256.*2> ;FROM 

REINTO+<272.*2> 10 


-WORD 0 :DATA 
CLR a#ERFLGS ;CLEAR ERROR FLAG 
:*NOW COMPARE “‘DISK'' BUFFER WITH ‘'REINTO’’ BUFFER IN CORE 


JSR RO,a#COMPAR ; CHECK 

REINTO ;GOOD BUFFER 

DISK TEST BUFFER 

273. sNUMBER OF WORDS CHECKED 

4% ;RETURN POINT FOR ERROR HEADER 
5$ ;RETURN POINT FOR ERROR DATA 
TST61 RETURN FOR GOOD COMPARISON 
ERROR 7 ;READ ERROR 10 NEXT 

RTS PC ;RETURN TO COMPARE 

ERROR 10 ;WORD NOS 1 TO 256 ARE 


;DATA WORDS 


SEQ 0129 


aon 





CZRJGDO,RPOG/5/6 DSKLS CTRLRI 
CZRJGD.P11 11:00 


10-SEP-79 


026200 000207 


MACY11 30A(1052) 
160 


10-SEP-79 


PC 


11:11 


N 10 
PAGE 131 
WRITE HEADER AND DATA 3 


;WORD NOS 257 AND 258 
;ARE ECC WHICH HAVE BEEN 
; ZEROED 

;WORD NOS 259 

31S DATA GAP 

;WORD NOS 260 TO 273 


;ARE TOLERANCE GAP 
;RETURN TO COMPARE 


SEQ 0130 


C, 
Ci 


aon 


~~ 
zm 


026202 
026204 
026210 


026216 


026236 


026242 


026250 
026254 


026300 


026302 


026324 
026330 
026332 
026334 
026336 


026342 
026546 


026352 
026554 


026360 
026364 


10-SEP-79 


ooooo o°co 


So 
oS 
a 
™N 
Ww 
~“ 


012737 
005037 


005077 


004737 
104401 


000000 
013711 


005037 
012777 


RJGDO, Sama + DSKLS Ste 
GD .P 11:00 


001000 
000061 


051436 
000460 
177777 


042732 


010000 


052756 
052760 
052762 
000400 
044140 


177374 
602114 
153314 
000403 
010000 


153302 


042766 
062562 


002066 


002006 
010000 


MACY11 


002032 


052754 


053014 


153322 


153256 


B11 
PAGE 132 


SEQ 0131 


-+@eeeeeerererrrerererererrtererereererekeeeeneeeeeteeeeeeeeeeeee 


PROGRAM ERROR RHCS2 #10 


FORMAT 16 BIT PER WORD 
0, KEYS 0, NUMBER OF WORDS 256 OF 0°S 


; ee WHILE GO BIT IS SET ANOTHER GO IS GIVEN THIS SHOULD SET 


*+@@eeeererereereeeeerereeteeeerererereeeereteeeeeeteererereeKetere 


RESET STACK 
THIS SAVES TEST NUMBER 


;POINTER 
; COUNTER 
CLEAR DISK AREA TO ALL ONES. 


“THIS IS USED TO SET GENERAL 
REGISTERS 


ARE TO SET UP FOR DISKLESS USE ONLY 


;AND THAT NO OTHERS = 1. 
sTINUE TESTING IF BOTH AREN'T TRUE 
sSTOP THE TEST 


;GET READY FOR WRITE HEADER 


sFORMAT 22=16 BITWORDS AND 
sCYLINDER 0 
;TRACK=0, SECTOR=0 
:KEY1= 0 
KEY2=0 
a} DATAWORDS 
3G0 TO CALCULATE CRC 


7256 DATA WORDS 4 ae WORDS 
;FROM BUFFER ‘WRF ROM 
: IN NER 


DER=0 
;SECTOR=0, TRACK=0,KEYS=0, ALL DATA=0 


; COUNT 
;BRANCH IF ALL 259 NOT COMPLETE 
;TRACK=0, SECTOR=0 


CHECK THAT DVA,RDY,DPR,DRY = 1 


CANNOT CON- 


;AND DATA a" oe IN RHCS1 


30A(1052) 10-SEP-79 11:11 
160 WRITE HEADER AND DATA 3 
TEST 61 
yee WRITE CYLINDER 0, 
tee TRACK 0, SECTOR 
ree PROGRAM ERROR 
iS161: SCOPE 

MOV WSTACK,SP 
MOV #TTNO, a#TSTNM 
mov WSECGAP,RO 
MOV #304. ,R1 
1$ MOV #=1, (RO)4 
DEC RI 
BNE 1$ 
JSR PC,CLDISK 
+ THESE 
MOV WEMT22,Q#WCYL 
CLR aFWSECTR 
CLR awwKEY! 
CLR aMWKEY2 
MOV #256. ,a#FNWORD 
JSR R5,awCRC 
WOYL 
GCRC 
* THESE ARE REGULAR SETUPS 
MOV #-260. ,aRHWC 
MOV #WREROM,RO 
MOV RO, @RHBA 
MOV #259. ,R5 
MOV WFMT22, (RO)+ 
2$: CLR (RO)+ 
DEC R5 
BNE 2$ 
CLR RHDST 
JSR PC ,a#CHECKT 
TYPE —_, CPHALT 
HALT 
MOV a#eWRIFOR, aR! 
CLR avERFLGS 
MOV #FMT22, MRHOF 


;CLEAR ERROR FLA 
FORMAT BIT=1 Te BIT WORDS 


C11 
Pw RP04/5/6 DSKLS CTRLR1 = MACY11 30A(1052) 10-SEP-79 11:11 PAGE 133 


CZRJGD.P11 10-SEP-79 11:00 161 PROGRAM ERROR RHCS2 #10 SEQ 0132 
5852 026372 005077 153254 CLR @RHCA ;CYLINDER 0 
5853 026376 012777 000001 153254 MOV #DMD ,ARHMR ;SET DIAGNOSTIC MODE 
5854 026404 052777 000001 153226 BIS #G0,aRHCS1 ;60 
5855 026412 000240 NOP 
gees 026414 052777 000001 153216 BIS #G0,aRHCS1 ; THIS GO SHOULD SET PGE 
5858 026422 004737 042336 JSR PC ,a#PUTREG ;SAVE REGISTERS 
5859 026426 032737 002000 001714 BIT #PGE ,aaCSl 1S PGE SET 
5860 026434 001404 BEQ 3$ ;BRANCH IF GOOD 
5861 026436 013737 001636 001122 MOV QWRHCS2,a#SBDADR- 
5862 026444 104037 ERROR 37 PGE DID NOT SET WHEN A WRITE 
58635 WAS ATTEMPTED WITH ONE IN PROGRESS 
5864 026446 3$: 


eet 


aon 


CZRJGDO,RPO4/5S/6 DSKLS CTRLRI 
CZRIGD.P11 11:00 


10-SEP-79 


MACY11 30A(1052) 
T61 


D111 
10-SEP-79 11:11 PAGE 154 
PROGRAM ERROR RHCS2 #10 


peterererererrererrerereneerereeteerereereeeeteeeeekerereereeeee 


THESE TESTS ARE THROUGH THE MAINTAINABILITY REGISTER - RHMR 


THE SECTOR GAP AND SYNC BYTE ARE ALWAYS READ A 


Ss 
ZEROS AND 144000 NO MATTER WHAT IS IN THE SIMULATED DISK AREA 


TAGGED SECGAP: AND WSSYNC: 


THE HEADER CONSISTING OF CYLINDER ADDRESS, SECTOR, 
TRACK AND THE KEYS ARE READ FROM LOCATION 

CYL:, SECTOR:, KEY1:, AND KEY2 AND NOT FROM 
HEADER: ON SIMULATED DISK 


CRC 1S READ FROM SIMULATED DISK LOCATION WCRC: 
HEADER GAP IS ALWAYS READ AS ZEROS NO MATTER 
WHAT 1S ON THE SIMULATED DISK AREA 


THE DATA SYNC IS READ FROM HDWSYN: 
ON SIMULATED DISK 


ALL DATA IS READ FROM SIMULATED DISK DISK: 


,eeeeerererererereererersereereneeHeeeterenAehanenneneeenerteree 


SEQ 0133 


EEE 


E 11 
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CZRJGD.P11 10-SEP-79 11:00 161 PROGRAM ERROR RHCS2 #10 SEQ 0134 Cj 
5887 | 
5888 
5889 
5890 
5891 peteeeererrerereerereeteerertererenereeeereneerereneeeerereeeetes 
5892 SSTEST 62 READ HEADER AND DATA 1 
5895 tee READ CYLINDER 0 FORMAT 16 BITS PER WORD 
5894 pte TRACK 0, SECTOR 0, KEYS 0, 256 WORDS OF 0 
5895 pee ANY ERROR LOGIC INDICATIONS ARE NOT CONCLUSIVE ON FIRST PASS 
94 ptt BECAUSE ERROR LOGIC HAS NOT BEEN CHECKED YET (ON FIRST PASS) 
5898 ppetteeereeeerereeerererrerereterreeeteeeeeeeeeeeeeeeenereeeeeee ee 
5899 026446 000004 TST62: SCOPE 
5900 026450 012706 001000 MOV STACK, SP sRESET STACK 
ted 026454 012737 000062 002032 MOV #TINO,Q@#TSTNM ;THIS SAVES TEST NUMBER 
5903 
5904 :* SETUP FOR WHAT 1S TO BE READ 
Hedy ie HEADER CRC 1S RESTORED FROM A SUBROUTINE 
5907 026462 012746 000000 MOV #0,-(SP) :DATA TO BE READ 
5908 026466 012705 000400 MOV #256. ,R5 : COUNTER 
5909 026472 012700 051534 MOV #D1SK,RO _;START OF SIMULATED DISK DATA 
5910 026476 011620 1$: MOV (SP), (RO) + :>MOVE IN DATA ON TO SIMULATED DISK 
5911 026500 005305 DEC RS ; COUNT 
5912 026502 001375 BNE 1$ :BRANCH IF 256 NOT COMPLETE 
5913 026504 005726 TST (SP)+ :UNDO -(SP) 

5914 026506 012705 000021 MOV W17.,R5 :2 ECC WORDS | 

5915 :1 DATA GAP 

5916 :14 TOLERANCE GAP 

5917 026512 005020 2$: CLR (RC)+ :CLEAR ECC, DATA GAP, AND 
5918 026514 005305 DEC R5 : TOLERANCE GAP 

ohh 026516 001375 BNE 2$ BRANCH IF NOT COMPLETE 
5921 

2028 :*THESE ARE TO SETUP FOR DISKLESS USE ONLY 

5924 026520 012737 010000 047616 MOV WO'FMT22,a#CYL ;16 BITS PER WORD 

5925 CYLINDER 0, FORMAT 16 BITS 
5926 026526 112737 000000 047621 MOvB #O,QMSELOTR+1 ;TRACK 0 

5927 026534 112737 000000 047620 MOvVB #0,a#SECOTR ;SECTOR 0 

5928 026542 012737 000000 047622 MOV #0,a#KEY] :KEY1=0 

5929 026550 012737 000000 047624 MOV #0,aM#KEY2 :KEY2=0 

5930 026556 012737 000400 047676 MOV £256, + ee sNO. OF DATA WORDS 

5931 026564 005037 047626 CLR sTh!S 1S A READ COMMAND 
5932 026570 004537 044140 JSR +4 aacRe :G0 TO CALCULATE CRC 
5933 026574 047616 CYL 

ote 026576 051516 wWCRC 

3036 :*THESE ARE REGULAR SETUPS FOR RH11 AND ‘’REINTO’' 
5 

5938 026600 004737 042732 JSR PC ,a#CLDISK :SETUP GENERAL REGISTERS 
5939 026604 012777 177374 153020 MOV #-256.-4.,aRHWC ;256. DATA 4 HEADER WORDS 
5940 026612 012777 003160 153014 MOV WREINTO,@RHBA ;STARTING ADDRESS OF READ BUFFER 
5941 026620 112746 000000 MOVB #0,-(SP) > IN LOWER BYTE GET SECTOR 
5942 026624 112766 000000 000001 MOVB #0,1(SP) :GE1T TRACK IN HIGHER BYTE 


CZRJIGDO,RPO4/5S/6 DSKLS ahi 


CZRIGD.P11 10-SEP-79 1 
59435 026632 012677 
5944 026636 012777 
5945 
5946 
5947 
5948 026644 005077 
5949 
5950 026650 004737 
5951 026654 104401 
5952 
5953 026660 000000 
5954 
5955 026662 013711 
5956 026666 005037 
5957 026672 004737 
5958 
5959 
5960 
5961 
5962 
5963 
5964 
5965 
5966 
5967 
5968 
5969 026676 017737 
5970 026704 001401 
5971 026706 104040 
5972 
5973 
5974 
5975 
5976 
5977 
5978 
5979 026710 005737 
5980 026714 001046 
5981 026716 004737 
5982 026722 104401 
5983 026726 000000 
5984 026730 012700 
5985 026734 012720 
5986 026740 112746 
5987 026744 112766 
5988 026752 012620 
5989 026754 012720 
5990 026760 012720 
5991 026764 012701 
5992 026770 012702 
5993 026774 010220 
5994 026776 005301 
5995 027000 001375 
5996 
5997 
5998 


153006 
014000 


153002 


042766 
062562 


002072 
002006 
047456 


152730 


002006 


043156 
062562 


002114 
010000 
000000 
000000 


000000 


000000 


MACY11 30A(1052) 
T62 


153004 


001126 


000001 


208: 


3$: 


F 
10-SEP-79) «11:11 
READ HEADER AND DATA 


MOV (SP)+*,@RHDST 
MOV #FMT22'EC] @RHOF 


11 
Ne na 136 


; TRACK/SECTOR IN RHDST 
;16 BITS PER WORD 

ECC CORRECTION INHIBIT 

;BECAUSE ECC IS NOT GOING 

;TO BE CHECKED 


CLR @RHCA CYLINDER 0 

JSR PC ,@#CHECKT CHECK THAT DVA,RDY,DPR,DRY = 1 

TYPE ,CPHALT ;AND THAT NO OTHERS = 1. CANNOT CON- 
> TINUE TESTING IF BOTH AREN'T TRUE 

HALT ;STOP THE TEST 

MOV QWREFOR ARI ;READ HEADER AND DATA=72 


CLR avERFLGS 
JSR PC ,a#COMHD 


;CLEAR ERROR FLAG 
;READ HEADER AND DATA 


>*1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
;*FROM THE "‘COMHD'’ ROUTINE THAT MEANS SECTOR GAP, 
:*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 
;*SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY 
> *DETECTED. 


;*RHWC 1S CHECKED TO BE = 0 AFTER THE READ OPERATION 


MOV @RHWC ,SBDDAT ;LOAD AND TEST RHWC 
BEQ 20% :§ = 
ERROR 40 


;*HEADER AND DATA ARE TO BE CHECKED. 
:*IN CHECKING READ DATA THE WRITE FROM BUFFER 
;t"WRFEROM' 1S FILLED WITH EXPECTED DATA AND 


Ci 
SEQ 0135 (i 


> *COMPARISONS ARE MADE. 


TST a#ERFLGS 

BNE TS163 sBRANCH IF YES 

JSR PC ,a#CHECKE sCHECK THAT BITS = 1 

TYPE »CPHALT :CANNOT CONTINUE TESTING IF THEY DON'T 
HALT :STOP THE TEST 

MOV #WRFROM,RO sGETTING READY TO FILL EXPECTED DATA 
MOV #O'FMT22,(R0)* ;CYLINDER 0 

MOVB #0,-(SP) :IN LOWER BYTE GET SECTOR 

MOVB #0,1(SP) :GET TRACK IN HIGHER BYTE 

MOV (SP)+,(RO)+ :GET TRACK/SECTOR IN BUFFER 

MOV #0,(RO)+ :KEY1 IN BUFFER 

MOV #0, (RO)+ ;KEY2 IN BUFFER 

MOV #256.,R1 sDATA WORD COUNTER 

MOV #0,R2 DATA 

MOV R2,(RO)+ sDATA INTO BUFFER 

DEC R1 > COUNT 

BNE 3$ “BRANCH 1F 256 NOT DONE 


;*NOW READ DATA BUFFER WILL BE CHECKED 


; SHOULD = 
sRHWC DOES NOT = O AFTER A READ 

;HEADER AND DATA 

ANY ERRORS ALREADY THERE 


[ 


CZRJGDO,RPO4/5/6 DSKLS CTRLRI 
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027002 


027024 
027026 


027030 


10-SEP-79 11:00 
004037 043626 
14 


000207 
104005 


000207 


MACY11 30A(1052) 
162 


4$: 
5$: 


G 11 
PAGE 157 


10-SEP-79 11:11 
READ HEADER AND DATA 1 SEQ 0136 
JSR RO, a#COMPAR > CHECK 
WRF ROM ;GOOD BUFFER 
RE INTO ; TEST BUFFER 
4+256 ;NUMBER OF WORDS CHECKED 
4$ ;RETURN POINT FOR ERROR HEADER 
5$ ;RETURN POINT FOR ERROR DATA 
TS163 ;RETURN FOR GOOD COMPARISON 
ERROR 4 ;READ NEXT ERROR 
RTS PC ;RETURN TO ‘'COMPAR™’ 
ERROR 5 :WORD NCS 1 TO 4 ARE 
;HEADER WORDS 
75 10 260 ARE tek WORDS 
RTS PC ;RETURN TO ‘COMPAR 





027032 
027034 
027040 


027046 


027072 


027076 
027100 
027102 


027104 
027112 


027162 


027164 


027222 


000004 
012706 
012737 


005020 
005305 
001375 


sé TN eabe DSKLS Ste 
P11 10-SEP-79 11:00 


001000 
000063 


177777 
000400 
951534 


000021 


010000 
0000u0 


044140 


042732 
177374 
003160 
000001 
000000 
1$2422 
014000 


MACY11 30A(1052) 
162 


002032 


047616 
047621 


047676 


152434 
152430 


000001 
152420 


H 11 
10-SEP-79 11:11 PAGE 138 
READ HEADER AND DATA 1 


**w#@ererereretererterereereerereeeerrerenekenetetererenetereteteneee 


S*TEST 63 READ HEADER AND DATA 2 


-f 


READ CYLINDER 0 FORMAT 16 BITS PER WORD 

TRACK 0, SECTOR 1, KEYS 0, 256 WORDS OF 177777 

ANY ERROR LOGIC INDICATIONS ARE NOT CONCLUSIVE ON FIRST PASS 
BECAUSE ERROR LOGIC HAS NOT BEEN CHECKED YET (ON FIRST PASS) 


- @eeereereereterereeerrrerteeeeeeereeeeeeeeeetetateeeteetereneneee 


tse 
we 


2$: 


163: 


SCOPE 
MOV #STACK,SP RESET STACK 
MOV MTTINO,Q#TSTNM =; THIS SAVES TEST NUMBER 


SETUP FOR WHAT 1S TO BE READ 
HEADER CRC 1S RESTORED FROM A SUBROUTINE 


MOV #-1,-(SP) ;DATA TO BE READ 
MOV #256.,R5 ; COUNTER 
MOV #D1SK,RO START OF SIMULATED DISK DATA 
MOV (SP), (RO)+ [MOVE IN DATA ON TO SIMULATED DISK 
DEC R5 ; COUNT 
BNE 1$ [BRANCH IF 256 NOT COMPLETE 
TST (SP)+ UNDO =(SP) 
MOV #17.,R5 32 ECC WORDS 
31 DATA GAP 
14 TOLERANCE GAP 
CLR (RO) + ;CLEAR ECC, DATA GAP, AND 
DEC R5 ; TOLERANCE GAP 
BNE 2$ :BRANCH IF NOT COMPLETE 


;*THESE ARE TO SETUP FOR DISKLESS USE ONLY 


MOV MO'FMT22,aa#CYL ;16 BITS PER WORD 
sCYLINDER 0, FORMAT 14 BITS 
MOVB WO,AMSECOTR*+1 ; TRACK 0 


MOVB #1,a#SECOTR :SECTOR 1 

MOV #0, ,aaKEY! :KEY1=0 

MOV #0, aaKEY2 KEY2=0 

MCV #256. ,a#DAWORD NO. OF DATA WORDS 

CLR aax sTHIS IS A READ COMMAND 
JSR R5,aaCRC :G60 TO CALCULATE CRC 
CYL 

wCRC 


p* THESE ARE REGULAR SETUPS FOR RH11 AND ‘'REINTO"™ 


JSR PC ,aa#CLDISK 7SETUP GENERAL REGISTERS 
MOV #-256.-°4.,aRHWC 3256. DATA & HEADER WORDS 
MOV MREINTO,QRHBA ;STARTING ADDRESS OF READ BUFTER 
MOVB #1,-(SP) 7 IN LOWER BYTE GET SECTOR 
MOVB #0,1(SP) :GET TRACK IN HIGHER BYTE 
MOV (SP)* ,@RHDST TRACK/SECTOR IN RHDST 
MOV @FMT22:EC],QRHOF ;16 BITS PER WORD 
sECC CORRECTION INWIBIT 


SEQ 0137 


CZRJGDO, prorat DSKLS Sire 


CZRIGD.P 10-SEP-79 1 
6073 
6074 
6075 027230 005077 152416 
6076 
6077 027234 004737 042766 
“rn 027240 104401 062562 
6 
6080 027244 000000 
6081 
6082 027246 013711 002072 
6083 027252 005037 002006 
6084 027256 004737 047456 
6085 
6086 
6087 
6088 
6089 
60990 
6091 
6092 
6093 
6094 
6095 
6096 027262 017737 152344 
6097 027270 001401 
6098 027272 104040 
6099 
6100 
6101 
6102 
6103 
6104 
6105 
6106 027274 005737 002006 
6107 027300 001046 
6108 027302 004737 043156 
6109 027306 104401 062562 
6110 027312 000000 
6111 027314 012700 002114 
6112 027320 012720 010000 
6113 027324 112746 000001 
6114 027330 112766 000000 
6115 027336 012620 
6116 027340 012720 000000 
6117 027344 012720 000000 
6118 027350 012701 000409 
6119 027354 012702 177777 
6120 027360 010220 
6121 027362 005301 
6122 027364 001375 
6123 
6124 
6125 
6126 027366 004037 043626 
6127 027372 002114 
6128 027374 003160 


MACY11 30°1052) 
163 


001126 


000001 


208: 


3$: 
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10-SEP-79 11:11 PAGE 159 
READ HEADER AND DATA 2 


BECAUSE ECC IS NOT GOING 
10 BE CHECKED 


CLR @RHCA CYLINDER 0 

JSR PC ,@@CHECKT CHECK THAT DVA,RDY,DPR,DRY = 1 

TYPE CPHALT ;AND THAT NO OTHERS = 1. CANNOT CON- 
> TINUE TESTING IF BOTH AREN'T TRUE 

HALT ;STOP THE TEST 

MOV Q#REFOR ARI ;READ HEADER AND DATA=72 

CLR a#ERFLGS > CLEAR ERROR FLAG 


JSR PC ,a#COMHD READ HEADER AND DATA 


>*1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
>*FROM THE “‘COMHD'’ ROUTINE THAT MEANS SECTOR GAP, 
FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 

>*SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY 
s*DETECTED. 


s*RHwC 1S CHECKED TO BE = 0 AFTER THE READ OPERATION 


MOV aRHwWC ,$BDDAT sLOAD AND TEST RHWC 
BEQ 208% ;SHOULD = 
ERROR 40 >RHWC DOES NOT = O AFTER A READ 


;HEADER AND DATA 


;*HEADER AND DATA ARE TO BE CHECKED. 

>*IN CHECKING READ DATA THE WRITE FROM BUFFER 
peWRFEROM'' 1S FILLED WITH EXPECTED DATA AND 
>*COMPARISONS ARE MADE. 


TST a#ERFLGS ANY ERRORS ALREADY THERE 

BNE TS164 ;BRANCH IF YES 

JSR PC ,@#CHECKE ;CHECK THAT BITS = 1 

TYPE ,CPHALT ;CANNOT CONTINUE TESTING IF THEY DON'T 
HALT ;S1OP THE TEST 

MOV #WRFEROM,RO ;GETTING READY 10 FILL EXPECTED DATA 
MOV MO!FMT22,(RO)* ;CYLINDER 0 

MOVB #1,-(SP) 7 IN LOWER BYTE GET SECTOR 

MOVB #0,1(SP) ;GET TRACK IN HIGHER BYTE 


MOV (SP)+,(RO)+ 7GET TRACK/SECTOR IN BUFFER 
MOV #0,(RO)+ KEY] IN BUFFER 

MOV #0,(RO)+ sKEY2 IN BUFFER 

MOV #256. ,R1 ;DATA WORD COUNTER 

MOV #-1,R2 ;DATA 

MOV +h (RO) + eet INTO BUFFER 

DEC 

BNE 5s ;BRANCH IF 256 NOT DONE 
>*NOw READ DATA BUFFER WILL BE CHECKED 

JSR RO, a# COMPAR > CHECK 

WRF ROM :GOOD BUFFER 

RE INTO TEST BUFFER 


SEQ 0138 


—— 


ee EEE 


CZR 


027376 
027400 
027402 
027404 
027406 
027410 
027412 


027414 


CZR oy Seta * DSKLS CTRiRI 
JGD.P 10-SEP-79 11:00 


000404 
027406 
027412 
027416 
104004 
000207 
104005 


000207 


MACY11 30A(1052) 
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4$: 
58: 


10-SEP-79 
READ HEADER AN 


J. 
PAGE 140 
A 2 





NUMBER OF WORDS CHECKED 
RETURN POINT FOR ERROR HEADER 
;RETURN POINT FOR ERROR DATA 
;RETURN FOR GOOD COMPARISON 
;READ NEXT ERROR 

;RETURN TO ‘’COMPAR™’ 

;WORD NOS 1 TO 4 ARE 

;HEADER WORDS 

35 TO 260 ARE DATA WORDS 
;RETURN TO "COMPAR" 


SEQ 0139 


on 


K 11 | 
CZRJGDO,RPO4/5/6 DSKLS ete MACY11 30A(1052) 10-SEP-79 11:11 * PAGE 141 0140 
EQ 014 


CZRIGD.P11 10-SEP-79 11:00 163 READ HEADER AND DATA 2 

6143 

6144 sy eerereerrerererereerererereerererenerereneeekenereneeeeerereeee 
6145 TES] 64 READ HEADER AND DATA 3 

6146 pe READ CYLINDER 0 FORMAT 16 BITS PER WORD 

6147 ie TRACK 1, SECTOR 1, KEYS 0, 256 WORDS OF 052525 

6148 pee ANY ERROR LOGIC INDICATIONS ARE NOT CONCLUSIVE ON FIRST PASS 
ose pee BECAUSE ERROR LOGIC HAS NOT BEEN CHECKED YET (ON FIRST PASS) 
6151 s eee eeererereerereererereeteretereneeereenaeetenanteneeeteeeeeee 
6152 027416 000004 1S164: SCOPE 

6153 027420 012706 001900 MOV #@STACK, SP RESET STACK 

ete 027424 012737 000064 002032 MOV #TINO,@#@TSTNM ;THIS SAVES TEST NUMBER 

6156 

6157 i* SETUP FOR WHAT IS TO BE READ 

oes ;* HEADER CRC 1S RESTORED FROM A SUBROUTINE 

6160 027432 012746 052525 MOV #052525,-(SP)  ;DATA TO BE READ 

6161 027436 012705 000400 MOV #256.,R5 : COUNTER 

6162 027442 012700 951534 MOV #D1SK,RO START OF SIMULATED DISK DATA 
6163 027446 011620 1$: MOV (SP), (RO)+ :MOVE IN DATA ON TO SIMULATED DISK 
6164 027450 005305 DEC RS ; COUNT 

6165 027452 001375 BNE 1$ BRANCH IF Ae NOT COMPLETE 

6166 027454 005726 TST (SP)¢ UNDO -(SP 

6167 027456 012705 000021 MOV #17.,R5 72 ECC wones 

6168 :1 DATA GAP 

6169 :14 TOLERANCE GAP 

6170 027462 005020 2$: CLR (RO)+ :CLEAR ECC, DATA GAP, AND 

6171 027464 005305 DEC R5 s TOLERANCE GAP 

ire 027466 001375 BNE 28 BRANCH IF NOT COMPLETE 

6 

6174 

oe :*THESE ARE TO SETUP FOR DISKLESS USE ONLY 

6 

6177 027470 012737 010000 047616 MOV WO'FMT22,aMCYL ;16 BITS PER WORD 

6178 :CYLINDER 0, FORMAT 16 BITS 
6179 027476 112737 000001 047621 MOVB #1,aM#SECOTR+1 ;TRACK 1 

6180 027504 112737 000001 047620 MOVB #1,a#SECOTR SECTOR 1 

6181 027512 012737 000000 047622 MOV #0, aaKEY1 sKEYI= 0 

6182 027520 012737 000000 047624 MOV #0, a#KEY2 KEY2=0 

6183 027526 012737 000400 047676 MOV #256.,a#DAWORD :NO. OF DATA WORDS 

6184 027534 005037 047626 CLR aex >THIS IS A READ COMMAND 

6185 027540 004537 044140 JSR RS, a#CRC *GO TO CALCULATE CRC 

6186 027544 047616 CYL 

ty + 027546 051516 WCRC 

6 

6189 >*THESE ARE REGULAR SETUPS FOR RH11 AND ‘'REINTO"’ 

6 

6191 027550 004737 042732 JSR PC ,a#CLDISK :SETUP GENERAL REGISTERS 

6192 027554 012777 177374 152050 MOV #-256.-4.,aRHWC 3256. DATA 4 HEADER WORDS 

6193 027562 012777 003160 152044 MOV WREINTO,@RHBA ;STARTING ADDRESS OF READ BUFFER 
6194 027570 112746 000001 MOVB #1,-(SP) : IN LOWER BYTE GET SECTOR 

6195 027574 112766 000001 000001 MOVB #1,1(SP) :GET TRACK IN HIGHER BYTE 

6196 027602 012677 152036 MOV (SP)+,@RHDST :TRACK/SECTOR IN RHDST 

6197 027606 012777 014000 152034 MOV WFMT22'EC] @RHOF ;16 BITS PER WORD 


6198 ECC CORRECTION INHIBIT 


CZRJGD.P 10-SEP-79 1 
6199 
6200 
6201 027614 005077 
6202 
6203 027620 004737 
6206 027624 104401 
6205 
6206 027630 000000 
6207 
6208 027632 013711 
6209 027636 005037 
6210 027642 004737 
6211 
6212 
62135 
6214 
6215 
6216 
6217 
6218 
6219 
6220 
6221 
6222 027646 017737 
6223 027654 001401 
6224 027656 104040 
6225 
6226 
6227 
6228 
6229 
6230 
6231 
6232 027660 005737 
6233 027664 001046 
6234 027666 004737 
6235 027672 104401 
6236 027676 000000 
6237 027700 012700 
6238 027704 012720 
6239 027710 112746 
6240 027714 112766 
6241 027722 012620 
6242 027724 012720 
6243 027730 012720 
6244 027734 012701 
6245 027740 012702 
6246 027744 010220 
6247 027746 005301 
6248 027750 001375 
6249 
6250 
6251 
6252 027752 004037 
6253 027756 002114 
6254 027760 003160 


CZRJGDO, Natal + DSKLS CTRLRI 
Pil 11:00 


152032 


042766 
062562 


002072 
002006 
047456 


151760 


002006 


043156 
062562 


002114 
010000 
000001 
000001 


000000 


052525 


043626 


MACY11 30A(1052) 
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001126 


000001 


208: 


3$: 
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READ HEADER AND DATA 3 


;BECAUSE ECC IS NOT GOING 
;10 BE CHECKED 
CLR @RHCA sCYLINDER 0 


JSR PC ,a#CHECKT ;CHECK THAT DVA,RDY,DPR,DRY = 1 

TYPE ,CPHALT ;AND THAT NO OTHERS = 1. CANNOT CON- 
TINUE TESTING IF BOTH AREN'T TRUE 

HALT ;STOP THE TEST 


MOV Q#REFOR ARI ;READ HEADER AND DATA=72 
CLR avERFLGS ;CLEAR ERROR FLAG 
JSR PC ,a#COMHD ;READ HEADER AND DATA 


;*1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
7*FROM THE ‘'COMHD'’ ROUTINE THAT MEANS SECTOR GAP, 
s*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 
eticlan® HAVE GONE BY AND SYNCS WERE CORRECTLY 

- ‘ 


;*RHWC 1S CHECKED TO BE = 0 AFTER THE READ OPERATION 


MOV @RHWC , SBDDAT ;LOAD AND TEST RHWC 

BEQ 20% ; SHOULD = 0 

ERROR 40 ;RHWC DOES NOT = 0 AFTER A READ 
;HEADER AND DATA 


;*HEADER AND DATA ARE TO BE CHECKED. 

7*1N CHECKING READ DATA THE WRITE FROM BUFFER 
p*'"WRFEROM' 1S FILLED WITH EXPECTED DATA AND 

> *COMPARISONS ARE MADE. 


TST a#ERFLGS ANY ERRORS ALREADY THERE 

BNE TST65 ;BRANCH IF YES 

JSR PC ,a#CHECKE ;CHECK THAT BITS = 1 

TYPE -CPHALT ;CANNOT CONTINUE TESTING IF THEY DON'T 
HALT ;STOP THE TEST 

MOV #WRFROM,RO ;GETTING READY TO FILL EXPECTED DATA 
MOV HO:FMT22, (RO)+ ; CYLINDER 0 

MOVB #1,-(SP 7 1N LOWER BYTE GET SECTOR 

MOVB #1, TCSP) ;GET TRACK IN HIGHER BYTE 


MOV (SP)+, (RO) 4 ;GET TRACK/SECTOR IN BUFFER 
MOV #0,(RO)+ KEY] IN BUFFER 

MOV #0,(RO)+ sKEY2 IN BUFFER 

MOV #256. ,R1 DATA WORD iene 


MOV #052525,R2 


;DAT 
MOV ate (RO)¢ + INTO BUFFER 


DEC 

BNE 5s ‘BRANCH 1F 256 NOT DONE 
;*NOW READ DATA BUFFER WILL BE CHECKED 

JSR RO,a#COMPAR ; CHECK 

WRF ROM GOOD BUFFER 

REINTO ; TEST BUFFER 


SEQ 0141 


CZRJGDO,RPO4/5/6 DSKLS CTRLRI 
CZRIGD.P11 


027762 


027776 


030000 


10-SEP-79 11:00 
000404 


000207 
104005 


000207 


MACY11 30A(1052) 
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4$: 
5$: 


10-SEP-79 11:11 
READ HEADER AND DATA 
4% 

5% 

TST65 
ERROR 4 
RTS PC 
ERROR 5 
RTS PC 


M11 
‘ 143 


SEQ 0142 


;NUMBER OF WORDS CHECKED 
;RETURN POINT FOR ERROR HEADER 
;RETURN POINT FOR ERROR DATA 
;RETURN FOR GOOD COMPARISON 
;READ NEXT ERROR 

;RETURN TO “COMPAR” 


: DS 
:5_T0 260 ARE DATA WORDS 
;RETURN TO ‘‘COMPAR’ 


C 


CZRJGDO,RPO4/5/6 DSKLS ete 
CZRJGD.P11 1:00 


030002 
030004 


030012 
030016 
030024 
030034 


030036 
030044 


030112 


030114 


030204 


030210 
030212 


10-SEP-79 1 


000004 
012737 
012706 
012737 
004037 
051534 


052560 
000000 


012737 


112737 
112737 


047616 
051516 


004037 


—-Oo OO —s a os os os os 


000065 
001000 
000065 
042650 


010000 


000000 
000000 
047622 
047624 
000400 
000001 
044140 


042650 


042732 


062562 


002064 


MACY11 


002032 


002032 


047616 
047621 
047620 


047664 
047626 


151472 
151466 


000001 


151456 
151452 


N 11 
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T64 READ HEADER AND DATA 3 SEQ 0143 


;eeeeeerereererereeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeTeteee 


eTEST 65 WRITE DATA 


peed WRITE CYLINDER 0, FORMAT 16 BITS PER WORD 

;ee TRACK 0, SECTOR 0, KEYS 0, NUMBER OF WORDS 256 OF 377 

Nasi ANY ERROR LOGIC INDICATION IS NOT CONCLUSIVE ON FIRST PASS 
,o* BECAUSE ERROR LOGIC HAS NOT BEEN CHECKED 


;, *eeeeeererereeererereeeteeeeeeeeee eee eeeeReeeeeeeeeeene 


18165: SCOPE 
MOV #TINO,@#TSTINM ;THIS SAVES TEST NUMBER 
MOV #STACK,SP :RESET STACK 
MOV #TTINO,@#TSTINM :THIS SAVES TEST NUMBER 
JSR RO. ga CLAREA i CLEAR SIMULATED DISK 
WORD FROM 
WORD TOLGAP SI “10 
“WORD 0 “DATA 


:*THESE ARE SETUP FOR DISKLESS USE ONLY 


MOV WO!FMT22,aMCYL;CYLINDER 0 

;16 BITS PER WORD 
MOVB #0, a#SECOTR+1; TRACK 0 
MOVB #0,a#SECOTR SECTOR 0 


CLR aaKEY sKEY1 0 

CLR aaKEY2 sKEY2 0 

MOV 4 et ,@#NOWORD ;NO OF DATA WORDS 
MOV #1 aaXx sWRITE DATA 

JSR R5,a#CRC G0 TO CALCULATE CRC 
CYL 

wWCRC 


;*THESE ARE REGULAR SETUPS 
JSR RO,@#CLAREA FILL WRITE BUFFER WITH 377 


WRF ROM >FROM LOCATION 

WRF ROM+<256.#2> ;T0 LOCATION 

377 DATA 

JSR PC ,a@#CLDISK ;SETUP GENERAL REGISTERS 


MOV #-256. ,aRHWC 3256. DATA WORDS 
MOV #WRFEROM ,QRHBA foeton a ADDRESS OF WRITE BUFFER 


MOV #0,-(SP) 7SECTO 

MOVB #0,1(SP) ; TRACK 0 

MOV (SP)+,@RHDST ;SECTOR 0 TRACK 0 

MOV #FMT22,QRHOF 316 BITS PER WORD FORMAT 

MOV #0,QRHCA CYLINDER 0 

JSR PC ,a#CHECKT > CHECK THAT DVA,RDY,DPR,DRY = 1 

TYPE -CPHALT ;AND THAT NO OTHERS = 1, (CANNOT CON- 
; TINUE TESTING IF BOTH AREN'T TRUE 

HALT ;STOP THE TEST 

MOV Q#WRIDAT, aR! WRITE DATA=60 


CZRJGDO,RPOG/5/6 DSKLS CTRLRI 
10-SEP-79 11:00 


CZRIGD.P11 


030216 
030222 


030250 
030254 


0 
030312 
030314 


030340 


005037 
004737 


000401 
104005 


001345 


002006 
047456 


042336 
002006 


000377 
051534 
000400 


000401 


001124 


002006 


150614 
177177 
000200 


MACY11 30A(1052) 
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047736 


B 12 
10-SEP-79 11:11 PAGE 


WRITE DATA 
CLR avERFLGS 
JSR PC ,a#COMHD 


145 


;CLEAR ERROR FLAG 
sWRITE DATA 


;*1F THE PROGRAM COMES BACY HERE WITHOUT ERROR PRINTOUTS 
;*FROM THE ‘‘COMHD'’ ROUTINE 11 MEANS SECTOR GAP, SYNC BYTE 
;*HEADER, HEADER CRC, HEADER GAP AND SYNC BYTE HAVE GONE BY 
;*AND SYNCS WERE CORRECTLY DETECTED, DATA IS TO BE CHECKED. 


1$: 


2$: 
64$: 


3$: 


PC ,a#PUTREG 
a#ERFLGS 
TST66 
#377,R0 
#OISK,R1 
#256.,R2 


#256.+1,a#ERWORD; 
;COMPARE GOOD DATA WITH DATA ON DISK 
BRANCH IF GOOD 

;GOOD DATA 

BAD DATA 

;ERROR WORD NO 

;ANY ERRORS ALREADY THERE? 

;BRANCH IF YES 

sERROR ON WRITE DATA COMMAND 

;BRANCH TO AVOID PRINTING NEXT ERROR 


;WORD NO GIVES WORD IN ERROR 
;UNDO -(R1) FOR BAD DATA 
GET SWITCH SETTING 

;KEEP ONLY SWITCH 7 AND 8 
31S 7 SET AND 8 RESET 
;BRANCH OUT IF YES 

71F NOT COUNT 256 WORDS 
;BRANCH IF 256. NOT DONE 


RO,(R1)+ 
3$ 


RO, a#$GDDAT 
-(R1) ,a#$BDDAT 
R2,a#ERWORD 
avERFLGS 

2% 

4 

64% 


5 

(R1)+ 
@SWR,-(SP) 
#177177,<SP) 
#SWO7,(SP)+ 


;SAVE REGISTERS 
HAVE ANY ERRORS OCCURED? 


;BRANCH IF YES 

;GOOD DATA 

;DATA WRITTEN INTO ‘‘DISK"’ 
; COUNTER 


FOR ERROR WORD 


SEQ 0144 


We - eee 


on 


Lote: + tae * DSKLS CTRLRI 
P11 10-SEP-79 11:00 


CZRJG 


030342 
030344 


030350 


030366 
030370 
030374 


030376 
030400 


030402 


030452 


030454 


030516 


030524 
030530 
030534 


030540 
030542 
030546 


000004 
012706 


012737 


177400 
004037 


104401 


000000 
005037 
004737 


001000 


000066 
042650 


042650 


010000 


044140 


042732 


014000 


151122 
042766 
062562 


002006 
047456 


C 12 
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165 WRITE DATA 


002032 


047616 
047620 


047676 


000001 
151124 


SEQ 0145 


--@@aeererererererererrrrrrererererereeeerereetererrerereereteteeeeeeee 


:*TEST 66 READ DATA 


yee READ CYLINDERO, FORMAT 16 BITS PER WORD 

;t TRACKO, SECTOR 1, KEYS 0, 10 WORDS OF 17740C 

3; ANY ERROR LOGIC INDICATION IS NOT CONCLUSIVE 

tots BECAUSE ERROR LOGIC HAS NOT BEEN CHECKED YET (ON FIRST PASS) 


--@eeeeeeeerereeeeerererrereeeeeeereeeeetteekereeeeteeeeeteeeeeeee 


18166: SCOPE 


MOV #STACK,SP sRESET STACK 
MOV #TTNO,Q4TSTNM sTHIS SAVES TEST NUMBER 
JSR RO,@#CLAREA ;CLEAR SIMULATED DISK 
~ WORD DISK ;FROM 
-WORD DISK+776 370 
-WORD 177400 DATA 
JSR RO, @#CIAREA ;CLEAR READ INTO BUFFER 
WORD REINTO >FROM 
-WORD REINTO+776 310 
-WORD 0 DATA 
:*THESE ARE TO SETUP FOR DISKLESS USE ONLY 
MOV WEMT22 ,a*CYL :CYLINDER 0 16 BITS PER WORD FORMAT 
CLRB a#SECOTR+1 s TRACK 0 
MOVB #1, a#SECOTR :SECTOR 1 
CLR aaKEY! :KEY1= =0 
CLR aaKEY2 KEY2=0 
MOV #10. ,a#DAWORD :NO. OF DATA WORDS 
CLR aax THIS 1S A READ COMMAND 
7 RS ,aaCRC 60 TO CALCULATE CRC 
YL 
wCRC 
s*THESE ARE REGULAR SETUPS 
JSR PC, ,a#CLDISK ;SETUP GENERAL REGISTERS 
MOV Q#READAT, ARI ;READ DATA INTO RHCS1=70 
MOV #-10. ,aRHWC 710 DATA WORDS 
MOV #MREINTO,QRHBA sSTARTING ADDRESS OF READ BUFFER 
MOVB #1,-(SP) :IN LOWER BYTE GET SECTOR 1 
MOVB #0,1(SP) ;GET TRACKO IN UPPER BYTE 
MOV (SP)+,a@RHDST s TRACK/SECTOR IN RHDST 


MOV WEMT22'ECI],@RHOF ;16 BITS PER WORD 
ECC CORRECTION INHIBIT BECAUSE 
ECC 1S NOT CHECKED HERE 


CLR @RHCA s CYLINDER 0 

JSR PC ,a#CHECKT :CHECK THAT DVA,RDY,DPR,DRY = 1 

TYPE »CPHALT :AND THAT NO OTHERS = 1. CANNOT CON- 
s TINUE TESTING IF BOTH AREN'T TRUE 

HALT ;STOP THE TEST 

CLR a#ERFLGS >CLEAR ERROR FLAG 


JSR PC, a#COMHD ;READ DATA 


aon 


CZRIGDO,RPO4/5/6 DSKLS gir? 
CZRJGD.P11 11:00 


030552 


030566 
030570 


030572 
030576 
030600 
030602 


030604 
030610 


030660 


030662 
030664 
030670 
030674 
030700 
030702 
030704 


10-SEP-79 


005737 


000000 
004037 


000401 
104005 


022021 


001345 


002006 
042650 


042650 


002114 
003160 
000400 
000401 


001124 
001126 
047736 
002006 


150250 
177177 
000200 


MACY11 30A(1052) 
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047736 


1$: 


3$: 


4$: 


2%: 


D 12 
10-SEP-79 11:11 PAGE 147 
READ DATA SEQ 0146 


:*1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUT 
;*FROM "'COMHD'’ ROUTINE IN MEANS DATA IS TO BE CHECKED 


;*NOW THE DATA READ INTO ‘’REINTO' BUFFER WILL 

>*BE CHECKED, ONLY 10 WORDS SHOULD BE CHANGED 

;*ALL OTHER WORDS SHOULD REMAIN UNCHANGED 

:*THE "'WREROM' BUFFER 1S FILLED WITH EXPECTED DATA AND CHECKED 


TST avERFLGS sHAVE ANY ERRORS OCCURED? 

BNE TST67 ;;BRANCH IF YES 

JSR RO,@#CLAREA ;CLEAR BUFFER 

WRF ROM >FROM 

WRFROM+776 3170 

0 ;DATA 

JSR RO,@#CLAREA sFILL EXPECTED DATA 

WRF ROM ; FROM 

WRF ROM+22 310 

177400 ;DATA 

>*NOW READ DATA BUFFER IS CHECKED 

MOV #WRFROM,RO ;GOOD DATA 

MOV #REINTO,R1 ;DATA READ 

MOV #256. ,R2 ; COUNTER 

MOV #257. ,Qa#ERWORD ;FOR ERROR WORD NO 

CMP (RO)+,(R1)+ ;COMPARE GOOD WITH READ BUFFER 

BEQ 2$ ;BRANCH IF GOOD 

MOV -(RO),@#$GDDAT ;GOO0D DATA 

MOV -(R1),@#$BDDAT ;BAD DATA 

SUB R2,a#ERWORD sERROR WORD NO 

TST avERFLGS sANY ERRORS ALREADY THERE 

BNE 3$ :1f YES BRANCH DO NOT TYPE HEADER 

ERROR 4 sERROR ON READ DATA 

BR 4% :BRANCH TO AVOID PRINTING NEXT ERROR 

ERROR 5 ;WORD NO 1-10 ARE DATA 
; WORDS 
sWORD NOS 11-256 HAVE NCT BEEN 
sREAD AND BUFFER SHOULD BE 
;ZERO IF OTHER THAN ZERO 
;WRONG NUMBER OF WORDS HAVE 
;BEEN READ IN THE DISK NOW 
sCONTAINS 177400 ALL 256 
;WORDS BUT ONLY 10 WORDS 
;SHOULD BE READ IN 

CwP (RO)+,(R1)¢ sUNDO -(RO) AND -(R1) FOR ERROR 

MOV aswR,-(SP) ;GET SWITCH SETTING 

BIC #177177,(SP) i KEEP CNLY SWITCH 7 AND 8 

CMP #SwWO7,(SP)+ :1S 7 SET AND 8 RESET 

BEQ 1S167 :BRANCH OUT IF YES 

DEC R2 OUNT 

BNE 1$ BRANCH 1F NOT COMPLETE 


[ 


on 


E 12 
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6476 





CZRJGDO, “+ aaa DSKLS airs 


CZRJGD.P 


030706 


030710 
030714 


030722 


030752 
030754 


030772 


030774 
031000 
031002 
031004 


AAA AAA 
ooce 
—— st OE 
NMOFO BENMO 


oooo 
Warr 


10-SEP-79 1 


000004 


070707 
012700 


103774 


004037 
003300 
004156 
000000 


004037 


901000 
000067 


003160 
010000 
000401 


042650 


177776 
003240 


042650 


042650 


177776 
051604 


MACY11 30A(1052) 
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002032 


-* 


F 12 
10- "hath -79 11:11 PAGE 149 
READ D 


“Peete eetereererererererreeereeteererterereeeteteeeeeeteeeeeeeeeee 


TEST 67 WRITE CHECY HEADER AND DATA 


i 


2$: 


WRITE CHECK CYLINDER 0, FORMAT 16 BITS PER WORD 

TRACK 1, SECTOR 1, KEYS 0, 36 WORDS AS SHOWN BELOW 

ANY DEVICE LOGIC ERROR INDICATION IS NOT CONCLUSIVE ON FIRST PASS 
BECAUSE ERROR LOGIC HAS NOT BEEN CHECKED YET (ON FIRST PASS) 

ONLY RH WRITE CHECK ERROR (RHCS2 BIT 14) IS TESTED HERE 


“eee eeeererererereereeereeretetetereretereteneeeeeneeareteetetene 


$167: 


SCOPE 


DATA TABLE 

20 WORDS OF 070707 

THEN 16 WORDS WITH ZERO FLOATING FROM RIGHT 
TO LEFT (EG. 177776,177775,177773 ETC) 


MOV WSTACK,SP sRESET STACK 

MOV #TTNO,Q4TSTNM sTHIS SAVES TEST NUMBER 

7*SET UP ‘'REINTO'' FOR WHAT IS TO BE READ 

MOV MREINTO,R1 sSTARTING ADDRESS 

MOV WFEMT22,(R1)¢ :CYLINDER 0 FORMAT 16 BIT WORDS 
MOV #401, (R1)+ :TRACK=1, SECTOR=1 

CLR (R1)+ :KEY1=0 

CLR (R1)+ :KEY2=0 

JSR RO,@#CLAREA sFILL ‘'REINTO'’ BUFFER 

~ WORD REINTO+<4#2> 3; FROM 


-WORD REINTO*<23.*2> ;10 
«WORD 070707 ;DATA 


MOV #177776,R0 ;GETTING READY TO FLOAT 0 
MOV WREINTO#<24.%2>,R1;STARTING ADDRESS WHERE 177776 GOES 


MOV RO,(R1)* >MOVE IN FLOATING 0 

SEC SET CARRY 

ROL RO :GET 0 ONE BIT LEFT 

BCS 1$ ;BRANCH IF 16 NOT DONE 
JSR RO,@#CLAREA :FILL THE REST OF BUFFER WITH 0 
-WORD REINTO#<40.*2> ;FROM 

-WORD REINTO+776 :10 

-wORD 0 ;DATA 

>*SET UP SIMULATED DISK WITH WHAT IS TO BE READ 
JSR = * RO, @M#CLAREA sFILL ‘DISK’ BUFFER 
-WORD DISK 7FROM 

WORD DISK#<19,#2> :10 

-wORD 070707 ;DATA 


MOV #177776,R0 GETTING READY TO FLOAT ZEROS 

MOV #D1SK+<20.#2>,R1;STARTING ADDRESS WHERE 177776 GOES 
MOV RO,(R1)* :MOVE IN FLOATING 0 

SEC 7SET CARRY 


SEQ 0148 
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CZRJGD.P 10-SEP-79 11:00 167 RITE CHECK HEADER AND DATA SEQ 0149 
6533 031034 006100 ROL RO :GET 0 ONE BIT LEFT 
$33 031036 103774 BCS 28 :BRANCH IF 16 NOT DONE 
6536 031040 004037 042650 JSR RO, a#CLAREA sFILL THE REST OF BUFFER WITH 177777 
6537 0310464 051644 WORD DISK#<36.#2> >FROM 
6538 031046 052532 WORD DISK+776 :10 
$939 031050 177777 WORD 177777 :DATA 
6541 031052 004737 043456 JSR PC, a#WRCHHD sWRITE CHECK HEADER AND DATA 
am =CYLINDER 0, TRACK 1, SECTOR 1 
6544 :t1F THE PROGRAM COMES BACK HERE THEN WRITE CHECK 
$345 :tHAS BEEN COMPLETED NOW WRITE CHECK ERROR BIT IS TO BE TESTED 
6547 031056 013746 001774 MOV a#UNIT,-(SP) :GET UNIT NUMBER 
6548 031062 052716 000100 BIS #IR, (SP) ONLY BIT 6 SHOULD BE SET 
6549 031066 004737 042336 JSR PC ,a#PUTREG :SAVE REGISTERS 
6550 031072 022637 001712 CMP (SP)+,a#CS2 = COMPARE RHCS2 
6551 031076 001406 BEQ 4$ :BRANCH IF GOOD 
6552 031100 032712 940000 BIT #WCE,aR2 sWRITE CHECK ERROR HIGH? 
6553 031104 001402 REQ 3$ ;BRANCH IF ERROR NOT DUE TO ‘‘WCE" 
6554 031106 104017 ERROR 17 :RHDB CONTAINS FAILING WORD 
6555 031110 000401 BR 4$ :RHBA CONTAINS ADDRESS+2 
6556 :OF THE WORD IN MEMORY FROM 
6557 :THE DISK THAT DID NOT COMPARE 
6998 cia AND SC WILL BE SET DUE TO 
6 
6560 031112 104017 3$: ERROR 17 “WCE CORRECTLY WAS NOT SET BUT SOME 
6561 :BITS OTHER THAN IR 
6962 [AND UNIT NO. WAS SET 
656 
6564 :*NOW CHECK MEMORY TO SEE IF NOTHING GOT DESTROYED 
6505 =*F ILL ‘WREROM' WITH WHAT SHOULD BE IN "'REINTO'' THEN CHECK 
6566 
6567 031114 012700 002114 4$: MOV #WRFEROM,RO :STARTING ADDRESS 
6568 031120 012720 010000 MOV #FMT22,(RO)+ > CYLINDER 
6569 031124 012720 000401 MOV #401, (RO)+ sTRACK=1, SECTOR=1 
6570 031130 005020 CLR (RO)+ sKEY1=0 
6571 031132 005020 CLR (RO)+ >KEY2=0 
6 
6573 031134 004037 042650 JSR RO, @#CLAREA :FILL "WREROM'' BUFFER 
6574 031140 002124 LWORD WRFEROM+<4#2> FR 
6575 031142 002172 -WORD WREROM+<23.*2> ;10 
6376 031144 070707 .wORD 070707 =DATA 
6 
6578 031146 012700 177776 MOV #177776,R0 GETTING READY 10 FLOAT 0 
6579 031152 012701 002174 MOV #WRFEROM+<24.#2>,R1 ; STARTING ADDRESS WHERE 177776 GOES 
6580 031156 010021 5$: MOV RO,(R1)¢ :MOVE IN FLOATING 0 
6581 031160 000261 SEC :SET CARRY 
6582 031162 006100 ROL RO :GET 0 ONE BIT LEFT 
6983 031164 103774 BCS 5$ =BRANCH IF 16 NOT DONE 
6584 
6585 031166 004037 042650 JSR RO, a#CLAREA sFILL THE REST OF BUFFER WITH O 
6586 031172 002234 “WORD WRFEROM+<40.#2> ;FROM 
6587 031174 003112 .WORD WREROM+776 =10 
6588 031176 000000 .wORD 0 sDATA 


on 
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031232 
031234 
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005037 002006 
004037 043626 
002114 


104005 


000207 
000240 
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6$: 
7$: 


10$: 
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WRITE CHECK HEADER AND DATA SEQ 0150 


;*NOW THE READ BUFFER WILL BE CHECKED 


CLR a#ERFLGS ; CLEAR ERROR FLAG 
JSR RO, a#COMPAR > CHEC 
WRF ROM ;GOOD BUFFER 
REINTO ; TEST BUFFER 

. ;NUMBER OF WORDS CHECKED 
6$ ;RETURN POINT FOR ERROR HEADER 
7$ ;RETURN POINT FOR ERROR DATA 
i$T70 RETURN FOR GOOD COMPARISON 
ERROR 4 ;READ NEXT ERROR 5 
RTS PC ;RETURN TO COMPARISON SUBROUTINE 
ERROR 5 ;DATA IN REINTO BUFFER GOT 


7CHANGED AFTER A WRITE 
;CHECK HEADER AND DATA COMMAND 
;WORD NO CONTAINS THE WORD 
;NUMBER THAT GOT CHANGED 

RTS PC ;RETURN TO COMPARISON SUBROUTINE 


NOP ;ONLY A BRANCH POINT 


+ 


CZRJGDO, “+ peat DSKLS Bes 
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CZRJGD.P 


031236 


031240 
031244 


031252 


000004 


006100 
103774 


004037 
003260 


—Ooo00o0 —-cOo°oo° 
oo0o—-—— oo-—— 
WwWOOonwn _ WwOOrwr 

Ns 

oO 

Oo 


901000 
000070 


000001 
003160 


177776 
003220 


042650 


000001 
051534 


177776 
051574 


MACY11 


002032 
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167 WRITE CHECK HEADER AND DATA SEQ 0151 C 


sp etreeererereererrerereretrerereerrenerereereeterearerenteneareeee 


s*TEST 70 WRITE CHECK DATA 


orb WRITE CHECK DATA CYLINDER 0 FORMAT 16 gus PER WORD 
5s TRACK 1, SECTOR 1, KEYS 0, 32 WORDS OF DAT 

_—— ANY DEVICE LOGIC ERROR INDICATIONS ARE NOT * CONCLUSIVE ON FIRST PASS 
yee BECAUSE ERROR LOGIC HAS NOT YET (ON FIRST PASS) BEEN CHECKED 

“aed ONLY RH WRITE CHECK ERROR IS TESTED 


-s@@teeeeeerteterereteteteretinegrerettereeeketeeteteteeeteteeeneeeee 


SEC 7SET CARRY 
ROL RO 3GET 0 ONE BIT LEFT 
BCS 4% ;BRANCH IF 16 NOT DONE 


1S170: SCOPE 

:*DATA TABLE 

=*TOTAL OF 32 WORDS CONSISTING OF 

=*#16 WORDS OF FLOATING ONES (EG. 1, 2, 4, 10) 

>*16 WORDS OF FLOATING ZEROS (EG. 177776, 177775) 

MOV #STACK,SP :RESET STACK 

MOV #TTNO,a#TSTNM  :THIS SAVES TEST NUMBER 

:*SET UP "'REINTO’ FOR WHAT IS TO BE READ 

MOV #1,R0 :GETTING READY TC FLOAT 1 

MOV #REINTO,R1 “STARTING ADDRESS WHERE 1 GOES 
1$: MOV RO, (R1)¢ =MOVE FLOATING 1 

ROL RO :GET 1 ONE BIT LEFT 

BCC 1$ ‘BRANCH IF 16 NOT DONE 

MOV #177776,R0 :GETTING READY TO FLOAT 0 

MOV #REINTO*<16.*2>,R1 :STARTING ADDRESS WHERE 1777/6 GOES 
2$: MOV RO, (R1)¢ :MOVE IN FLOATING 0 

SEC =SET CARRY 

ROL RO =GET 0 ONE BIT LEFT 

BCS 2$ “BRANCH IF 16 NOT DONE 

JSR RO, @#CLAREA sFILL REST OF BUFFER WITH 1 

“WORD REINTO*<32.*2> :FROM 

“WORD REINTO+776 10 

“WORD 1 “WITH DATA 

:*SET UP SIMULATED DISK WITH WHAT IS TO BE READ 

MOV #1,R0 :GETTING READY TO FLOAT 1 

MOV #DISK,R1 “STARTING ADDRESS WHERE 1 GOES 
3$: MOV RO, (R1)¢ =MOVE FLOATING 1 

ROL RO :GET 1 ONE BIT LEFT 

BCC 3$ =BRANCH IF 16 NOT DONE 

MOV #177776,R0 :GETTING READY TO FLOAT 0 

MOV #D1SK+<16.#2>,R1 :STARTING ADDRESS WHERE 177776 GOES 
4$: MOV RO,iR1)¢ :MOVE FLOATING 0 


C 
CZR 


4 JGDO, aged? DSKLS CTRLRI 


JGD.P 


1360 
1364 
1366 
1370 


031372 


03 
03 
03 
03 


031376 
031402 


031432 


031434 


031436 
031442 
031446 
031452 
031454 
031456 


031460 


031474 
031476 


031500 
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004037 
051634 
052532 
000000 


004737 


013746 


000401 


104017 


005037 


103375 


012700 
012701 


103774 


004037 
002214 
003112 
000001 


004037 
002114 
003160 
000400 


11:00 
042650 


043770 


001774 
000100 
042336 
001712 


040000 


002006 
000001 
002114 


177776 


002154 


042650 


043626 
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001712 


5$: 


6$: 


7$: 


10$: 
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WRITE CHECK DATA 


JSR RO,@#CLAREA sFILL REST OF BUFFER WITH O 
-WORD DISK+<32."2> : FROM 


-WORD DISK+776 310 
-WORD 0 sWITH DATA 
JSR PC ,a#WRCHDA sWRITE CHECK DATA 


:CYLINDER 0, TRACK 1, SECTOR 1 
sKEYS 0, 32 WORDS. 


;*1F THE PROGRAM COMES BACK HERE THEN WRITE CHECK 
;*HAS BEEN COMPLETED NOW WRITE CHECK ERROR BIT IS TESTED 


MOV OFUNIT,-(SP) ;GET UNIT NUMBER 

BIS WIR, (SP) ;ONLY BIT 6 SHOULD BE SET 

JSR PC ,a#PUTREG SAVE REGISTERS 

CMP (SP)+,aa#CS2 COMPARE RHCS2 

BEQ 6$ ;BRANCH IF GOOD 

BIT WWCE ,aMCS2 sWRITE CHECK ERROR HIGH? 

BEQ 5$ ;BRANCH IF ERROR NOT DUE TO “WCE” 
ERROR 17 ;RHDB CONTAINS FAILING WORD 

BR 6% ;RHBA CONTAINS ADDRESS+#2 


;OF THE WORD IN MEMORY FROM 

; THE DISK THAT DID NOT COMPARE 

;TRE AND SC WILL BE SET DUE TO WCE 
ERROR 17 ;WCE WAS CORRECTLY NOT SET 

;BUT SOME BITS OTHER THAN 

71R AND UNIT NO. WERE SET 


>*NOW CHECK MEMORY TO SEE IF ANYTHING GOT DESTROYED 
s*FILL “WREROM'’ WITH WHAT SHOULD BE IN REINTO THEN CHECK IT 


CLR a#ERFLGS ;CLEAR ERROR FLAG 
MOV #1,R0 ;GETTING READY TO FLOAT 1 


MOV #WRFROM,R1 START ADDRESS WHERE 1 GOES 

MOV RO,(R1)+ ;MOVE FLOATING 1 

ROL RO ;GET 1 ONE BIT LEFT 

BCC 7$ BRANCH IF 16 NOT DONE 

MOV #177776,R0 ,GETTING READY TO FLOAT 0 

MOV #WRFROM*<16.#2>,R1 ;STARTING ADDRESS WHERE 177776 GOES 


MOV RO,(R1)+ :MOVE IN FLOATING 0 

SEC SET CARRY 

ROL RO ;GET O ONE BIT LEFT 

BCS 108 BRANCH IF CARRY SET 

JSR RO,@#CLAREA sFILL REST OF BUFFER WITH 1 


«WORD WRFROM+<32.*2> ;FROM 


-WORD WRFROM+776 :10 

«WORD 1 sWITH DATA 

;*NOW THE READ BUFFER WILL BE CHECKED 

JSR RO,a#COMPAR ; CHECK 

WRF ROM GOOD BUFFER 

REINTO ; TEST BUFFER 

256. ;NUMBER OF WORDS CHECKED 


SEQ 0152 


ama 
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031524 
031526 


031530 
031532 


031534 
031536 


031540 
031542 
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031532 
031536 


031544 
104004 


000207 
104005 


000207 
000240 
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11$: 
128: 


138: 
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WRITE CHECK DATA 


11$ 
12% 


TST71 
ERROR 
RT 


$ 
ERROR 


RTS 
NOP 


PC 


SEQ 0153 


RETURN POINT FOR ERROR HEADER 
;RETURN POINT FOR ERROR DATA 


RETURN FOR GOOD COMPARISON 


READ NEXT ERROR 5 

;RETURN TO COMPARISON SUBROUTINE 
;DATA IN REINTO BUFFER GOT 

; CHANGED AFTER A WRITE 

;CHECK DATA COMMAND 

;WORD NO CONTAINS THE WORD 
;NUMBER THAT GOT CHANGED 

;RETURN TO COMPARISON SUBROUTINE 


;ONLY A BRANCH POINT 


CZRJGDO,RP04/5/6 DSKLS CTRLRI 
CZRJGD.P11 11:00 


031544 
031546 


031570 
031574 


031576 


031602 
031606 
031612 
031616 
031622 
031626 


031632 
031636 
031642 
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000004 
012706 


104401 
000000 


2720 


— =D and ad 
OfFOWNMNMNM NM MW ot eet 
™N 
So 
So 


moO — eae 


001000 
000071 
042732 
042766 
062562 


003160 
001642 


000000 


001656 
002016 
031670 


000003 
003160 


000001 
000040 
001774 


0425336 
001732 
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11:11 


WRITE CHECK DATA 


oe a 
PAGE 155 


-SBTTL ERROR BIT FUNCTIONAL TESTS 


py eerereereretereeerereeeeeeeeeeeeetetrereeeeeteeReteteeeAteeeAe es 


s*TEST 71 


""GO"' SHOULD CLEAR ERR, ATA IN RHDS1 AND RHAS BUT NOT ERROR REG. 
PUTTING ‘'l'' IN RHAS DRIVE POSITION CLEARS DRIVE BIT IN ATA IN RHDSi 


ATTENTION WITH ERROR TEST 


THIS TESTS THE SETTING OF ATA BIT BOTH IN THE RHAS 
AND THE RHDS1 REGISTERS WITH THE SETTING OF EACH 
ERROR BIT ON THE THREE ERROR REGISTERS. 

oP oe tie THE ABOVE CASES ERR IN RHDS1 SHOULD 

AL . 


UPPER BYTE OF RHAS IS INVALIBD 


**@eeeeeeeeeeeeeeteeeeeeeeeeeeeereeeteteeeteeeeeeteteeeeateeeeeeese 


—e 
we 


002032 


001110 
001200 


1$: 


147740 2%: 
147732 


171: 


SCOPE 


#STACK,SP 
#TTNO,a#TSTNM 
PC,a#CLDISK 
PC ,a#CHECKT 
,CPHALT 


#REINTO,RO 


@ARHERT, (RO) + 
#0, (RQ)+ 
@#RHER2, (RO)+ 
#0, (RO)¢ 
a#RHERS, (RO) + 
#0,(RO)+ 


OA#RHAS ,R4 
Q#ATTENT,RS 
#2$,Q#SLPERR 


#3, ae#STMP1 
#REINTO,RO 


(RO)+,R2 
#B1T0,R1 
#CLR,@RHCS2 
Q#UNIT,@RHCS2 
R1,aR2 

PC ,a#PUTREG 
R5,Q#AS 


RESET STACK 

;THIS SAVES TEST NUMBER 

;CLEAR DISK REGISTERS 

;CHECK THAT DVA,RDY,DPR,DRY = 1 
;AND THAT NO OTHERS = 1. 
; TINUE TESTING IF BOTH AREN'T TRUE 
;STOP THE TEST 


BUFFER STARTING FOR 3 ERROR 
:REGISTERS 

;RHER1 STORED IN REINTO 

;B1TS NOT TO BE CHECKED IN RHERI 
sRHER2 STORED IN REINTO+4 

BITS NOT TO BE CHECKED IN RHER2 
;RHERS STORED IN REINTO+10 

;BI1TS NOT TO BE CHECKED IN RHERS 


7R4 HAS RHAS 

3R5 HAS ATA BIT IN RHAS 

; THAT SHOULD SET WITH ERROR 
;RETURN POINT TO ERROR 
ERROR REGISTER COUNTER 
sREGISTER BUFFER POINTER 


7R2 HAS ADDRESS OF ERROR REG 
3R1 WILL HAVE BIT UNDER TEST 
sCLEAR RHCS2 

sREINSTATE UNIT NO. 

>SET ERROR BIT 

;READ AND SAVE REGISTERS 
sONLY THE BIT IN RS SHOULD BE 
:SET IN RHAS 


CANNOT CON- 


SEQ 0154 


Sw: 1 ead DSKLS CTRLRI 
P 10-SEP-79 


CZRJGD 


031740 


031742 
031750 


032016 


032020 
032022 
032024 
032026 
032030 


032032 
032034 
032040 


032042 


032066 


001401 
104020 


013746 


104020 


012777 


104001 


013746 
042716 
022726 
001401 
104020 


006301 


001374 
000717 


005720 
005337 
001310 


11:00 


001736 
001100 
140600 


000001 147670 
042336 


042402 
001124 
001712 001126 


001736 
001100 
140600 


001206 


042732 
032042 001110 
177777 
002016 147570 
042336 


MACY11 30A(1052) 
171 


3$: 


4$: 


5$: 


M12 
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ATTENTION WITH ERROR TEST SEQ 0155 


ERROR 


3$ ;LOOK @ RHDS1 IF GOOD 


ERROR BIT IN AN ERROR 
sREGISTER, THE CORRESPONDING 
;RHAS BIT DID NOT SET 


@#DS1,-(SP) ;GET RHDS1 
#VV!IPROG,(SP)  ;REMOVE VV AND PROG 
MATALERR'!DPRIDRY,(SP)*; THESE BITS PLUS VV SHOULD BE IN RHDS1 
4$ CHECK ‘GO’ NEXT, IF THIS WAS OK 
20 WITH THE SETTING OF ONE 

ERROR BIT, COMPOSITE ERROR 

;OR ATTENTION ACTIVE, OR 

;ONE OF THE OTHER 

;PERMANENT BITS DID NOT SET 


#G0,aRHCS1 GIVE NO-OP 

PC ,a#PUTREG ;SAVE REGISTERS 

R1,aR2 ;GO SHOULD NOT CLEAR ERROR 

5$ FURTHER CHECK OF ‘GO’ FUNCTIONALITY 
R2,a#REGADR sFAILING REGISTER 

R1,a#$GDDAT ;GOOD DATA 


a#CS2,a#$BDDAT +BAD DATA 
1 "G0" WITH NO-OP CHANGED 
TERROR REGISTER 


a#0S1,-(SP) ;GET RHDS1 

#VV!PROG, (SP) ;CLEAR VV AND PROG 

MATALERR!DPR!DRY,(SP)+;GO SHOULD NOT CLEAR ANY BITS 

7$ ;CHECK NEXT ERROR BIT IF A-OK 

20 3''GO"' WITH NO-OP SHOULD NOT CLEAR 
;ATA AND/OR ERR 


:*THIS IS THE MAIN BIT TESTING CONTROL LOGIC 


7$: 


10$: 


20 ;WITH THE SETTING OF ONE 


R1 ;GET NEXT BIT TO THE LEFT 

10$ ;GO ON TO NEXT REGISTER IF DONE 
(RO) ,R1 ;1S THIS BIT TO BE TESTED ? 

7$ ;1F NOT, GET NEXT ONE 

2% ;1f TO BE TESTED, GO DO IT ! 
(RO) + ADVANCE RO TO NEXT ERROR REG. 
a#S$TMP1 REGISTER COUNTER 

1$ ;D0 NEXT ONE, IF 3 NOT COMPLETE 


>*NOW AFTER SETTING ATA IN RHDS1 ‘'l"' IN RHAS AT THE 
:*DRIVE POSITION SHOULD CLEAR ATA IN RHDS1 


PC ,a#CLDISK ; CLEAR 

#11$,SLPERR ERROR RETURN 

#-1,aR4 ;SET BIT IN RHAS AND ATA IN RHDS1 
QWATTENT,@RHAS WRITE 1 INTO DRIVE BIT POSITION 
PC ,a#PUTREG ;SAVE REGISTERS 
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032130 
032132 
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105737 
001401 
104020 


013746 
042716 
022726 


001401 
104020 


022737 


001401 
104020 


001732 


001736 
001000 
040700 


177777 =001716 
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12$: 


13$: 
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ATTENTION WITH ERROR TEST 


TSTB 
BEQ 
ERROR 


as AS 
12% 
20 


a#0S1,-(SP) 
#PROG, (SP) 


WERR!IVV!DPRIDRY, 


13% 
20 


#-1,a#ER1 


TST72 
20 


; THIS SHOULD BE ZERO 


;MOVING A ‘'l*’ INTO RHAS 
;AT THE DRIVE BIT POSITION 
;D1D NOT CLEAR IT 


GET RHDS1 
;MASK PROGRAMABLE 


(SP)+¢ 


;RHDS1 SHOULD HAVE THESE BITS 
;BUT ATA SHOULD BE CLEARED 


;CHECK RHER1 IF GOOD 

MOVING ‘1’ INTO RHAS AT THE 
;DRIVE BIT POSITION DID NOT 
;CLEAR ATA IN RHDS1 


;RHER1 SHOULD NOT CHANGE 

;BY CLEARING RHAS 

;BRANCH IF GOOD 

;RHER1 WAS CHANGED BY CLEARING 
;RHAS BY MOVING ‘'1"' INTO 

; THE DRIVE BIT POSITION 


$ 


SEQ 0156 


B 13 
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CZRJGD.P11 10-SEP-79 11:00 171 ATTENTION WITH ERROR TEST SEQ 0157 
6878 
6879 ppeeteeeererererererereeererrereerereterreeeenereRterteeeeeeeree ee 
erty s*TEST 72 BUS ADDRESS INHIBIT 
6882 pte READ CYLINDERO, FORMAT 16 BITS PER WORD 
6883 pte TRACKO, SECTOR 1, KEYS 0, 10 WORDS OF 177400 
6884 pee THIS 1S DONE WITH BUS ADDRESS INHIBIT SET 
6855 pt ANY ERROR LOGIC INDICATION IS NOT CONCLUSIVE ON FIRST PASS 
rer pte BECAUSE ERROR LOGIC HAS NOT BEEN CHECKED YET (ON FIRST PASS) 
6888 SERRA AAA EEE A TEER ATE A RETA E EATER AAA AAR EEE 
6889 032134 000004 TST72: SCOPE 
re a4 032136 012706 001000 MOV #STACK,SP sRESET STACK 
6892 032142 012737 000072 002032 MOV #TINO,a#TSTNM : THIS SAVES TEST NUMBER 
6893 032150 004037 042650 JSR RO,@#CLAREA ;CLEAR SIMULATED DISK 
6894 032154 051534 ~WORD DISK >FROM 
6895 032156 052532 «WORD DISK+776 :70 
pe de 032160 177400 WORD 177400 sDATA 
6898 032162 004037 042650 JSR RO, @#CLAREA :CLEAR READ INTO BUFFER 
6899 032166 003160 .WORD REINTO >FROM 
6900 032170 004156 WORD REINTO+776 310 
244 032172 000000 WORD 0 sDATA 
ed t) HESE ARE TO SETUP FOR DISKLESS USE ONLY 
6905 032174 012737 010000 047616 MOV MFMT22 ,Q#CYL CYLINDER 0 16 BITS °ER WORD FORMAT 
6906 032202 105037 047621 CLRB a#SECOTR+1 RACK 0 
6907 032206 112737 000001 047620 MOVB #1, a#SECOTR SECTOR 1 
6908 032214 005037 047622 CLR aaKEY) :KEY1= =0 
6909 032220 005037 047624 CLR aaKEY2 >KEY2=0 
6910 032224 012737 000012 047676 MOV #10. ,a#DAWORD NO. OF DATA WORDS 
6911 032232 005037 047626 CLR aex THIS IS A READ COMMAND 
6912 C€32236 004537 044140 JSR R5,aaCRC *GO TO CALCULATE CRC 
6913 032242 047616 CYL 
oi 032244 051516 wCRC 
erie s*THESE ARE REGULAR SETUPS 
6 
6918 032246 004737 042732 JSR PC ,a#CLDISK :SETUP GENERAL REGISTERS 
6919 032252 013711 002070 MOV @#READAT, ARI :READ DATA INTO RHCS1=70 
6920 032256 012777 177766 147346 MOV #-10. ,aRHwWC 310 DATA WORDS 
6921 032264 012777 003160 147342 MOV WREINTO,@RHBA  ;STARTING ADDRESS OF READ BUFFER 
6922 032272 112746 000001 MOVB #1,-(SP) : IN LOWER BYTE GET SECTOR 1 
6923 032276 112766 000000 000001 MOVB #0,1(SP) :GET TRACKO IN UPPER BYTE 
6924 032304 012677 147334 MOV (SP)+,@RHDST s TRACK/SECTOR IN RHDST 
6925 032310 012777 014000 147332 MOV WFMT22'ECI],@RHOF ;16 BITS PER WORD 
6926 sECC CORRECTION INHIBIT BECAUSE 
6927 ECC 1S NOT CHECKED HERE 
6928 032316 005077 147330 CLR @RHCA sCYLINDER 0 
6929 032322 004737 042766 JSR PC ,a#CHECKT sCHECK THAT DVA,RDY,DPR,DRY = 1 
6930 032326 104401 062562 TYPE ,CPHALT sAND THAT NO OTHERS = 1. CANNOT CON- 
6931 TINUE TESTING IF BOTH AREN'T TRUE 
6932 032332 000000 HALT :STOP THE TEST 
6933 032334 052777 000010 147274 BIS #BAIL,@RHCS2 >SET BUS ADDRESS INHIBIT 


aon 


CZRJGDO, “tape + DSKLS at) 
CZR 11:00 


JGD.P 


032342 
032346 


032352 


032366 


032370 


032376 


032452 


032454 


032476 
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005037 
004737 


005037 


012737 


104005 


022021 
017746 
042716 
022726 
001402 
005302 
001345 


002006 
047456 


002006 
042650 


177400 


002114 
003160 
000400 
000401 


001124 
001126 
047736 
002006 


146456 
177177 
000200 


MACY11 30A(1052) 
172 


002114 


047736 


1$: 


3$: 


4$: 


2$: 


C 13 
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BUS ADDRESS INHIBIT 


CLR a#vERFLGS ;CLEAR ERROR FLAG 
JSR PC ,a#COMHD ;READ DATA 


;*1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUT 
;*FROM "'COMHD'’ ROUTINE IN MEANS DATA IS TO BE CHECKED 


;*NOW THE DATA READ INTO ‘’REINTO’’ BUFFER WILL 

;*BE CHECKED, ONLY ONE WORD SHOULD BE CHANGED 

;*ALL OTHER WORDS SHOULD REMAIN UNCHANGED 

;*THE "'WREROM' BUFFER IS FILLED WITH EXPECTED DATA AND CHECKED 


CLR avERFLGS ; CLEAR FLAG 
JSR RO, QMCiLAREA ; CLEAR BUFFER 
WRF ROM ; FROM 
WRFROM+776 :T0 
0 ;DATA 
;*EXPECTED DATA 1S 177400 IN FIRST LOCATION ONLY 
MOV #177400 ,a#WRF ROM EXPECTED DATA 
;*NOW READ DATA BUFFER IS CHECKED 
MOV #WRFROM,RO ;GOOD DATA 
MOV #WREINTO,R1 ;DATA READ 
MOV #256. ,R2 ; COUNTER 
MOV #257.,a#ERWORD ;FOR ERROR WORD N 
CMP (RO)+,(R1)+ ;COMPARE GOOD WITH READ BUFFER 
BEQ 2$ ;BRANCH IF GOOD 
MOV =(RO),@#$GDDAT GOOD DATA 
MOV -(R1),a#$BDDAT ;BAD DATA 
SUB R2,a#ERWORD ;ERROR WORD NO 
TST a#ERFLGS ;ANY ERRORS ALREADY THERE 
BNE 3$ ;1f YES BRANCH DO NOT TYPE HEADER 
ERROR 4% ;ERROR ON READ DATA 
BR 4$ ;BRANCH TO AVOID PRINTING NEXT ERROR 
ERROR 5 ;WORD NO 1-10 ARE DATA 
; WORDS 
;WORD NOS 11-256 HAVE NOT BEEN 
READ AND BUFFER SHOULD BE 
;ZERO IF OTHER THAN ZERO 
;WRONG NUMBER OF WORDS HAVE 
;BEEN READ IN THE DISK NOW 
CONTAINS 177400 ALL 256 
;WORDS BUT ONLY 10 WORDS 
; SHOULD BE READ IN 
CMP (RO)+,(R1)+ ;UNDO -(RO) AND -(R1) FOR ERROR 
MOV aSWR,-(SP) ;GET SWITCH SETTING 
BIC #177177,(SP) KEEP ONLY SWITCH 7 AND 8 
CMP #SWO7,(SP)+ :1S8 7 SET AND 8 RESET 
BEQ 1$173 BRANCH OUT IF YES 
DEC R2 ; COUNT 
BNE 1$ ;BRANCH IF NOT COMPLETE 


j 


SEQ 0158 


CZRIGDO ,RP04/5/6 DSKLS oie 


CZRIGD.P11 10-SEP-79 1 


6990 
6991 


MACY11 30A(1052) 
172 


10-SEP-79 


BUS ADDRESS INHIBIT 


11:11 


D 13 
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CZRJGDO,RPO4/5/6 DSKLS CTRLRI 
CZRJGD.P11 


032500 
032502 
032506 


032514 
032520 
032522 
032526 


032526 
032532 
032534 
032536 


032540 


032606 
032610 


032612 
032616 
032622 
932630 
032636 
032642 
032646 
032654 
032660 


032666 


10-SEP-79 


000004 
012706 
012737 


005737 
001402 
000137 


004037 
051534 
052532 
177400 


oo--Ooo°o0°oo 
— es es ee t= CE 


MMP PP hrws 
No NNN NNN 
NNO SS] NN 
NNO OS NNO 


11:00 


001000 
000073 


002040 
933044 


042650 


010000 
047621 
000001 
047622 
047624 
000001 
047626 
044140 


042732 


014000 


146760 


E 13 
MACY11 ™_ 10-SEP-79 11:11 PAGE 161 


002032 


047616 
047620 


047676 


147002 
146776 


000001 
146762 


BUS ADDRESS INHIBIT . SEQ 0160 


Sy ereeeerrererereerereeerereeerererererereneteneKteteeeeterereeeeee 


;*TEST 73 RHCS2 - BIT # 11 = NEM 


,ee READ CYLINDERO, FORMAT 16 BITS PER WORD 

“joins TRACKO, SECTOR 1, KEYS 0, 1 WORD OF 177400 

“pase THIS 1S DONE WITH BUS ADDRESS INHIBIT SET 

— BUS ADDRESS USED 1S 760000 THIS IS ALWAYS NON EXISTANT 


see THIS SHOULD SET NEM 
sy eereerereerererereeeeeerereerererereeeeeeeeteeeeeeeeeeAeerenee 
1$173: SCOPE 

MOV WSTACK, SP ;RESET STACK 

MOV #TTINO,Q#TSTNM THIS SAVES TEST NUMBER 

:*CHECK TO SEE If THE PROGRAM 1S RUNNING WITH AN RH70 

1ST awRH70 :TEST FLAG FOR RH70 CONTROLLER 

BEQ 30$ :1F FLAG = 1, THIS TEST 1S SKIPPED 

JMP TST74 JUMP TO NEXT TEST ------------------- ) 
308: ;1F FLAG = 0, DO THIS TEST 

JSR RO, OM CLAREA ;CLEAR SIMULATED DISK 

-WORD DISK : FROM 

-WORD DISK+776 :10 

“WORD 177400 DATA 


s*THESE ARE TO SETUP FOR DISKLESS USE ONLY 


MOV WEMT22 ,a#CYL sCYLINDER 0, 16 BITS PER WORD FORMAT 
CLRB aaSECOTR+1 s TRACK 0 

MOVB #1, a#SECOTR sSECTOR 1 

CLR aaKEY1 ;KEY1=0 

CLR aaKEY2 7KEY2=0 

MOV #1. ,a#DAWORD sNO. OF DATA WORDS 

CLR aax :THIS 1S A READ COMMAND 
JSR R5,aMCRC 3GO TO CALCULATE CRC 

CYL 

WCRC 

s*THESE ARE REGULAR SETUPS 

JSR PC ,a#CLDISK :SETUP GENERAL REGISTERS 
MOV Q#READAT, ARI ;READ DATA INTO RHCS1=70 
MOV #-1. ,aRHWC :10 DATA WORDS 


MOV #160000,@RHBA ;STARTING ADDRESS OF READ BUFFER 
BIS WA16!A17,aR1 :1$ 760000 


MOVB #1,-(SP) ;IN LOWER BYTE GET SECTOR 1 
MOVB #0,1(SP) ;GET TRACKO IN UPPER BYTE 
MOV (SP) +, @RHDST ; TRACK/SECTOR IN RHDST 


MOV #FMT22'EC],@RHOF :16 BITS PER WORD 
:ECC CORRECTION INHIBIT BECAUSE 
;ECC 1S NOT CHECKED HERE 

CLR O*HCA SCYLINDER 0 


On 


Soe etd DSKLS CTRLRI 
10-SEP-79 11:00 


CZR 


JGD.P 


032672 
032676 


032722 


032750 


032752 


033006 
033010 
033016 
033024 
033042 
033044 


004737 
104401 


000000 
052777 


005037 
004737 


011137 
022737 


104001 


013746 


104001 
017737 


022737 
001407 
012737 
013737 
104001 


042766 
062562 


000010 
002006 
047456 


001126 
145670 


144270 
042402 


001774 
004110 
001124 
001126 
001124 


042402 


146620 
160000 


160000 
001634 
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146724 


001126 
001124 


001126 


001126 
001126 


001124 
042402 
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4$: 
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RHCS2 - BIT # 11 - NEM 


ERROR 


PC ,a#CHECKT ;CHECK THAT DVA,RDY,DPR,DRY = 1 

/CPHALT ;AND THAT NO OTHERS = 1. CANNOT CON- 
; TINUE TESTING IF BOTH AREN'T TRUE 
;STOP THE TEST 

#BAI ,ARHCS? ;SET BUS ADDRESS INHIBIT 

a#ERFLGS ;CLEAR ERROR FLAG 

PC ,a#COMHD ;READ DATA 


QR, a#SBDDAT ; TEST DATA 


WSC!TRE!DVALAT6O!A17!RDY!70,a#$BDDAT ; COMPARE RHCS1 
2$ ;BRANCH IF GOOD 
WSC!TRE'DVA!RDY!70,a#SGDDAT ;GOOD DATA 
R1,a#REGADR REGISTER RHCS1 
1 REFERENCE NON EXISTANT 

;MEMORY DID NOT SET 

;REQUIRED BITS 

;GET UNIT NUMBER 
WNEM!IR'BAL, (SP) ; INCLUDE NEM BAI AND IR 
(SP)+,a#$GDDAT ; 


aR2,a#$BODAT TEST DATA 
gee tact pie encaieliian RHCS2 


3 

R2,a#REGADR REGISTER ADDRESS 

1 ;REFRENCING NONEXISTANT MEMORY 
; CAUSED AN ERROR SHOULD SET NEM 
@RHBA,AMSBDDAT ; TEST DATA 


#160000 ,a#$BDDAT ; COMPARE RHBA 

4% ; BRANCH IF GOOD 

#160000 ,a#$GDDAT;GOOD DATA 

QWRHBA,Q#REGADR ;REGISTER ADDRESS RHBA 

1 TAFTER A NON EXISTANT MEMORY ERROR 
;RHBA DOES NOT HAVE 160002 


Q@#UNIT,-(SP) 


SEQ 0161 
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CZRJGD.P11 10-SEP-79 11:00 173 RHCS2 - BIT # 11 = NEM SEQ 0162 
7092 
7093 sp etrerereerererrerererererererererereerereteererenenteneteneetete 
coos seTEST 74 WRITE CHECK ERROR 
7096 pee WRITE CHECK DATA CYLINDER 0 FORMAT 16 BITS PER WORD 
7097 ree TRACK 1, SECTOR 1, KEYS 0, 32 WORDS OF DATA 
7098 pee FIFTH WORD IS CHANGED ON DISK TO GIVE WRITE CHECK ERROR 
7099 pee ANY DEVICE LOGIC ERROR INDICATIONS ARE NOT CONCLUSIVE 
7100 pee ON FIRST PASS 
7101 pee BECAUSE ERROR LOGIC HAS NOT YET BEEN CHECKED 
Ay pe ONLY RH WRITE CHECK ERROR IS TESTED 
7104 so eeeereererererererrererererererereererereneneeeeeneeeeeeerereeee 
he eg 033044 000004 1ST74: SCOPE 
6 
7107 :*DAT& TABLE 
7108 :*TOTAL OF 32 WORDS CONSISTING wd 
7109 :*16 WORDS OF FLOATING ONES (EG. 1, 2, 4, 10) 
ah, :*16 WORDS OF FLOATING ZEROS SG. 177776. 177775) 
7112 
7113 033046 012706 001000 MOV STACK, SP :RESET STACK 
7114 033052 012737 000074 002032 MOV #TINO,@#@TSTNM ;THIS SAVES TEST NUMBER 
ahi 033060 004737 042732 JSR PC ,a#CLDISK : INIT AND SET UP GENERAL REGISTERS 
aah § :*SET UP ‘'REINTO'' FOR WHAT IS TO BE READ 
7119 033064 012700 000001 MOV #1,R0 :GETTING READY TO FLOAT 1 
7120 033070 012701 003160 MOV #REINTO,R1 STARTING ADDRESS WHERE 1 GOES 
7121 033074 010021 1$: MOV RO,(R1)¢ MOVE FLOATING 1 
7122 033076 006100 ROL RO :GET 1 ONE BIT LEFT 
7123 033100 103375 BCC 1$ :BRANCH IF 16 NOT DONE 
7124 033102 012700 177776 MOV #177776,R0 :GETTING READY TO FLOAT 0 
7125 033106 012701 003220 MOV WREINTO+<16.*#2>,R1 ;STARTING ADDRESS WHERE 177776 GOLS 
7126 033112 010021 23: MOV RO,(R1)+ sMOVE IN FLOATING 0 
7127 033114 000261 SEC SET CARRY 
7128 033116 006100 ROL RO :GET 0 ONE BIT LEFT 
ie 033120 103774 BCS 28 “BRANCH IF 16 NOT DONE 
7131 033122 004037 042650 JSR RO,@#CLAREA sFILL REST OF BUFFER WITH 1 
7132 033126 003260 WORD REINTO*#<32.*2> ;FROM 
7133 033130 004156 «WORD REINTO+776 :10 
Ay 033132 000001 WORD 1 sWITH DATA 
af, :*SET UP SIMULATED DISK WITH WHAT IS TO BE READ 
71 
7138 033134 012700 000001 MOV #1,R0 :GETTING READY TO FLOAT 1 
7139 033140 012701 051534 MOV #DISK,R1 :STARTING ADDRESS WHERE 1 GOES 
7140 033144 010021 3$: MOV RO,(R1)¢ ;MOVE FLOATING 1 
7141 033146 006100 ROL RO 3GET 1 ONE BIT LEFT 
nt 033150 103375 BCC 3% *BRANCH IF 16 NOT DONE 
14 
7144 033152 012700 177776 MOV #177776,R0 :GETTING READY TO FLOAT 0 
7145 033156 012701 051574 MOV #D1SK*#<16.#2>,R1 ;STARTING ADDRESS WHERE 177776 GOES 
7146 033162 010021 4$: MOV RO,(R1)¢ sMOVE FLOATING 0 
7147 033164 000261 SEC :SET CARRY 





CZRIGDO ,RPO4/5/6 DSKLS ghey 
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033166 
033170 


033172 
033176 


033200 
033202 


033204 
033210 
033214 


033220 


033252 
033254 


033256 


033260 
033204 


033266 


033274 
033276 


033300 
033302 


033310 
033312 


033314 
033316 


033524 
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006100 
103774 


004037 
051634 


052532 
000000 


005037 
005037 
004737 


0°5746 


000401 


104017 


005737 
001414 


022737 


001402 
104017 


000421 
022737 


001415 
104017 


000415 
022737 
001402 


042650 


051544 
002006 
043770 


001774 
040300 
042336 
001712 


040000 001712 


002040 


177750 001706 


003200 001710 


177745 001706 
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5$: 


6$: 


17%: 


1o$: 
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WRITE CHECK ERROR 


ROL 
BCS 


JSR 

«WORD 
«WORD 
. WORD 


RO 
4% 


RO, @#CLAREA 
DISK+#<32.#2> 
errr 


;GET 0 ONE BIT LEFT 
;BRANCH IF 16 NOT DONE 


sFILL REST OF BUFFER WITH 0 
; FROM 


310 
sWITH DATA 


:*CHANGE FIFTH WORD TO 0 ON DISK 


CLR 
CLR 
JSR 


a#vD1SK+10 
a#ERFLGS 
PC ,@#WRCHDA 


:CLEAR FIFTH WORD ON DISK 

; CLEAR ERROR FLAG 

;WRITE CHECK DATA 

sCYLINDER 0, TRACK 1, SECTOR 1 
sKEYS 0, 32 WORDS. 


:*1F THE PROGRAM COMES BACK HERE THEN WRITE CHECK 
:*HAS BEEN COMPLETED, NOW WRITE CHECK ERROR BIT IS TESTED 
> *ALONG WITH RHWC FOR PROPER WORD COUNT AND RHBA FOR ADDRESS 


@#UNIT,-(SP) 
WIR!OR! WCE, (SP) 
PC ,a#PUTREG 
(SP)+,aa#CS2 

6$ 

MWCE ,aw#CS2 

5$ 


17 
6% 


17 


a#RH70 
16$ 


#-24. ,aMw( 


17% 
17 


15$ 


;GET UNIT NUMBER 

;ONLY BIT 6 SHOULD BE SET 

;SAVE REGISTERS 

;COMPARE RHCS2 

;BRANCH IF GOOD 

WRITE CHECK ERROR HIGH? 

;BRANCH IF ERROR NOT DUE TO ‘‘WCE"’ 
;RHDB CONTAINS FAILING WORD 

;RHBA CONTAINS ADDRESS+2 

;OF THE WORD IN MEMORY FROM 

7 THE DISK THAT DID NOT COMPARE 

; TRE AND SC WILL BE SET DUE TO WCE 
sWCE WAS CORRECTLY NOT SET 

;BUT SOME BITS OTHER THAN 

;1R AND UNIT NO. WERE SET 


; TEST FOR RH70 CONTROLLER 
>SKIP RH70 CODE AND DO RH11 IF NOT 


;COMPARE RHWC AFTER A FORCED 

WRITE CHECK ERROR 

;CHECK RHBA IF GOOD 

;WORD COUNT REGISTER IN ERROR AFTER A 
FORCED WRITE CHECK ERROR ON FIFTY WORD 
;BRANCH TO CONTINUE TEST 


WREINTO+<8.*2>,Q0#BA ;COMPARE RHBA AFTER A FORCED 


15$ 
1? 


15$ 
#-27. ,aawl 
148% 


WRITE CHECK ERROR IN FIFTH WORD 
;CONTINUE IF GOOD 

;BUS ADDRESS REGISTER IN ERROR AFTER 
FORCED WRITE CHECK ERROR ON FIFTH WORD 
;SKIP RH11 CODE AND CONTINUE WITH TEST 


;COMPARE RHWC AFTER A FORCED 
WRITE CHECK ERROR 
; CHECK RHBA IF GOOD 





SEQ 0163 

































CZR 
CZRIJGD.P 


7204 033326 
7206 033330 
7208 033332 


7210 033340 
7211 033342 


7217 033344 


7222 033364 
7224 033366 


7229 033404 
7231 033406 
7232 033412 


7233 033414 
7234 033416 


7238 033420 
7239 033424 


7243 033434 
7245 033436 
7247 033440 


7248 033442 
7249 033444 


7254 033446 
033450 
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104017 
000405 
022737 


001401 
104017 


005037 
012700 
012701 
010021 
006100 
103375 


012700 


103774 
004037 
002214 


003112 
000001 


004037 


033444 
033452 
104004 


000207 
104005 


000207 
000240 


603172 001710 


002006 
000001 
002114 


177776 


002154 


042650 


043626 


MACY11 30A(1052) 
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14%: 


15$: 


7$: 


10$: 


118: 
12$: 


13$: 
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WRITE CHECK ERROR 


ERROR 17 ;WORD COUNT REGISTER IN ERROR AFTER A 
;FORCED WRITE CHECK ERROR ON FIFTH WORD 
BR 15$ ;BRANCH TO CONTINUE TESS 


CMP WREINTO+<5.*2>,Q#BA; COMPARE RHBA AFTEP FORCED 
;WRITE CHECK ERROR IN FIFTH WORD 

BEQ 15$ ; CONTINUE IF GOOD 

ERROR 17 ;BUS ADDRESS REGISTER IN ERROR AFTER 
;FORCED WRITE CHECK ERROR ON FIFTH WORD 


>*NOW CHECK MEMORY TO SEE IF ANYTHING GOT DESTROYED 
stFILL “WRFEROM'’ WITH WHAT SHOULD BE IN REINTO THEN CHECK 


CLR a#ERFLGS ;CLEAR ERROR FLAG 
MOV #1,R0 ;GETTING READY TO FLOAT 1 


MOV #WREROM,R1 START ADDRESS WHERE 1 GOES 
MOV RO,(R1)+ ;MOVE FLOATING 1 

ROL RO ;GET 1 ONE BIT LEFT 

BCC 7$ :BRANCH IF 16 NOT DONE 

MOV #177776,R0 ;GETTING READY TO FLOAT 0 


MOV WWRFROM+<16.#2>,R1 ;STARTING ADDRESS WHERE 177776 GOES 


MOV RO,(R1)+ sMOVE IN FLOATING 0 

SEC sSET CARRY 

ROL RO 7GET 0 ONE BIT LEFT 

BCS 10% sBRANCH IF CARRY SET 

JSR RO,@#CLAREA sFILL REST OF BUFFER WITH 1 
~WORD WREROM+<32.*2> ;FROM 

~WORD WRFROM+776 310 

. WORD 1 sWITH DATA 

s*NOW THE READ BUFFER WILL BE CHECKED 

JSR RO, a#COMPAR ; CHECK 

WRF ROM ;GOOD BUFFER 

REINTO sTEST BUFFER 

256. sNUMBER OF WORDS CHECKED 

11$ sRETURN POINT FOR ERROR HEADER 
12% sRETURN POINT FOR ERROR DATA 
T$175 ;RETURN FOR GOOD COMPARISON 
ERROR 4 sREAD NEXT ERROR 5 

RTS PC :RETURN TO COMPARISON SUBROUTINE 
ERROR 5 sDATA IN REINTO BUFFER GOT 


:CHaANGED AFTER A WRITE 
:CHECK DATA COMMAND 
sWORD NO CONTAINS THE WORD 
sNUMBER THAT GOT CHANGED 
RTS PC sRETURN TO COMPARISON SUBROUT:NE 


NOP ;ONLY A BRANCH POINT 


' 
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CZRJGD.P 10-SEP-79 11:00 174 WRITE CHECK ERROR SEQ 0165 

7260 . 
7261 ppeeeeeeterereteeerererertrerrerettereeeeeteneeeeeeeeeeeee Tee 
7262 s*TEST 75 ERROR REGISTER #1-BIT 4 -FORMAT ERROR 
7263 pil THE SIMULATED DISK IS FILLED WITH CYLINGER OQ TRACK 1 
7264 ipted SECTOR 0 FORMAT=18 BITS PER WORD AND 4 WORDS 
7265 pee OF 125252, A READ HEADER AND DATA COMMAND IS GIVEN WITH 16 BITS 
7266 see PER WORD FORMAT, FER=BIT4 SHOULD SET BUT THE 
7267 yee READ SHOULD BE COMPLETE 
7269 ppeteeeeererrereteterereereerieeereereteReeeeeeeReee EKA Tee 
7270 053452 000004 1S175: SCOPE 
7271 
7272 
iste 033454 012706 001000 MOV STACK ,SP sRESET STACK 
She 033460 012737 000075 002032 MOV #TTNO,Q#TSTNM = ;THIS SAVES TEST NUMBER 
7277 ze SETUP FOR WHAT IS TO BE READ 
ste 7¢ HEADER CRC 1S RESTORED FROM A SUBROUTINE 
7280 033466 012746 125252 MOV #125252,-(SP)  ;DATA TO BE READ 
7281 033472 012705 000400 MOV #256. ,R5 ; COUNTER 
7282 033476 012700 051534 MOV WDISK, “RO START OF SIMULATED DISK DATA 
7283 033502 011620 1$: MOV (SP), (RO) + ;MOVE IN DATA ON TO SIMULATED DISK 
7284 033504 005305 DEC R5 ; COUNT 
7285 033506 001375 BNE 1$ :BRANCH IF 256 NOT COMPLETE 
7286 033510 005726 TST (SP)¢ ;UNDO -(SP) 
7287 033512 012705 000021 MOV #17.,R5 :2 ECC WORDS 
7288 :1 DATA GAP 
7289 314 TOLERANCE GAP 
7290 033516 005020 2$: CLR (RO)+ CLEAR ECC, DATA GAP, AND 
7291 033520 005305 DEC R5 ; TOLERANCE GAP 
a4 033522 001375 BNE 2$ :BRANCH IF NOT COMPLETE 
729% 
oes ;* THESE ARE 10 SETUP FOR DISKLESS USF ONLY 

6 
7297 033524 012737 000000 047616 MOV #0:!0,a#CYL ;16 BITS PER WORD 
7298 ;CYLINDER 0, FORMAT 16 BITS 
7299 033532 112737 000001 047621 MOVB #1,aM#SECOTR+1 =; TRACK 1 
7300 033540 112737 000000 047620 MOVB #0 ,a#SECOTR : SECTOR 0 
7301 033546 012737 000000 047622 MOV #0 ,a#KEY! 7KEY1=0 
7302 033554 012737 000000 047624 MOV #0 ,as#KEY2 :KEY2=0 
7303 033562 012737 000004 047676 MOV #4. ,a#DAWORD :NO. OF DATA WORDS 
7304 033570 005037 047626 CLR aax ;THIS IS A READ COMMAND 
7305 033574 004537 044140 JSR RS, aaCRC G0 TO CALCULATE CRC 
7306 033600 047616 CYL 
£544 033602 051516 wWCRC 
fd ;* THESE ARE REGULAR SETUPS FOR RH11 AND ‘'REINTO" 
7311 033604 004737 042752 JSR PC ,a#CLDISK ;SETUP GENERAL REGISTERS 
7312 033610 012777 177770 146014 MOV #-4.-4.,aRHWC 34, DATA 4 HEADER WORDS 
7313 033616 012777 003160 146010 MOV WREINTO,A@RHBA STARTING ADDRESS OF READ BUFFER 
7314 033624 112746 000000 MCVB #0,-(SP) ;IN LOWER BYTE GET SECTOR 
7315 033630 112766 000001 000001 MOVB #1,1(SP) GET TRACK IN HIGHER BYTE 

J 


on 


CZRJGOO, = Td DSKLS or 
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7316 033636 012677 146002 
7317 033642 012777 014000 
7318 

7319 

7320 

eH 033650 005077 145776 
7323 033654 004737 042766 
ese 033660 104401 062562 
vase 033664 000000 

7328 033666 013711 002072 
7329 033672 005037 002006 
7330 033676 004737 047456 
7331 

7332 

7333 

7334 

7335 

7336 

7337 

7338 

7339 

7340 

7341 

7342 033702 017737 145724 
7343 033710 001401 

7344 033712 104040 

7345 

7346 

7347 

7348 

7349 

7350 

7351 

7352 033714 005737 002006 
7353 033720 001055 

7354 033722 004737 043156 
7355 033726 104401 062562 
7356 033732 000000 

7357 033734 012700 002114 
7358 033740 012720 000000 
7359 033744 112746 000000 
7360 033750 112766 000001 
7361 033756 012620 

7362 033760 012720 000000 
7363 033764 012720 000000 
7364 033770 012701 000400 
7365 033774 012702 125252 
7366 034000 010220 

7367 034002 005301 

7368 034004 001375 

7369 

7370 
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146000 


001126 


000001 


208: 


3$: 


10-SEP-79 


K 13 
11:11 GE 167 
ERROR REGISTER #1-BIT 4 -fORMAT ERROR 


SEQ 0166 


MOV (SP)+,@RHDST sTRACK/SECTOR IN RHDST 
MOV #FRAT22'ECL,@RHOF 316 BITS PER WORD 
sECC CORRECTION INHIBIT 
;BECAUSE ECC IS NOT GOING 
310 BE CHECKED 
CLR @RHCA s CYLINDER 0 
JSR PC ,a#CHECKT :CHECK THAT DVA,RDY,DPR,DRY = 1 
TYPE CPHALT ;AND THAT NO OTHERS = 1. CANNOT CON- 
s TINUE TESTING IF BOTH AREN'T TRUE 
HALT ;STOP THE TEST 
MOV Q#REFOR,aR1 ;READ HEADER AND DATA=72 
CLR O#ERFLGS ;CLEAR ERROR FLAG 
JSR PC, a#COMHD ;READ HEADER AND DATA 


*1f THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
;*FROM THE “‘COMHD'’ ROUTINE THAT MEANS SECTOR GAP, 
s*FIRST SYNC, 
;*SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY 
s*DETECTED. 


HEADER, HEADER CRC, HEADER GAP AND 


;*RHWC 1S CHECKED TO BE = 0 AFTER THE READ OPERATION 


MOV @RHWC ,SBDDAT 
BEQ 20% ; SHOULD = 
ERROR 40 


;LOAD AND TEST RHWC 


;RHWC DOES NOT = 0 AFTER A READ 
HEADER AND DATA 


;*HEADER AND DATA ARE TO BE CHECKED. 

:*IN CHECKING READ DATA THE WRITE FROM BUFFER 
3*'‘WREROM' 1S FILLED WITH EXPECTED DATA AND 

> *COMPARISONS ARE MADE. 


TST a#ERFLGS sANY ERRORS ALREADY THERE 

BNE TS176 ;BRANCH IF YES 

JSR PC ,a#CHECKE :CHECK THAT BITS = 1 

TYPE ,»CPHALT ;CANNOT CONTINUE TESTING IF THEY DON'T 
HALT sSTOP THE TEST 

MOV #WRFROM,RO sGETTING READY TO FILL EXPECTED DATA 
MOV #0, (RO0)+ sCYLINDER 0 

MOVB #0,-(SP) s IN LOWER BYTE GET SECTOR 

MOVB #1,1°SP) 3GET TRACK IN HIGHER BYTE 

MOV (SP)+, (RO) + ;GET TRACK/SECTOR IN BUFFER 

MOV #0, (RO) 4 7KEY1 IN BUFFER 

MOV #0, (RO)+ sKEY2 IN BUFFER 

MOV #256.,R1 ;DATA WORD COUNTER 

MOV #125252,R2 DATA 

MOV R2,(RO)+ sDATA INTO BUFFER 

DEC R1 ; COUNT 

BNE 3$ sBRANCH IF 256 NOT DONE 


> *NOW READ DATA BUFFER WILL BE CHECKED 


Ci 
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CZRIGD.P11 


034006 


034032 


034034 


034036 


034042 
034050 
34052 
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004037 
002114 


104005 


000207 


004737 


022737 
001401 
104020 


043626 


042336 
100020 001716 
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4$: 
5$: 


6$: 
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ERROR REGISTER #1-BIT 4 -FORMAT ERROR 


JSR 
WRF ROM 


RO, a#COMPAR 


PC 


7 CHECK 

;GOO0D BUFFER 

7s TEST BUFFER 

sNUMBER GF WORDS CHECKED 
sRETURN POINT FOR ERROR HEADER 
sRETURN POINT FOR ERROR DATA 
;RETURN FOR GOOD COMPARISON 
;READ NEXT ERROR 

sRETURN TO ‘‘COMPAR’’ 

;WORD NCS 1 TO 4 ARE 


;HEADER WORDS 
;5 TO 260 ARE at WORDS 
:RETURN TO ‘'COMPAR 


>*NOW SEE THAT FORMAT ERROR BIT GOT SET 


JSR 


CMP 
BEQ 
ERROR 


PC ,a#PUTREG 


WFER!DCK,Q#ER1 
1S176 
20 


; SAVE REGISTERS 


;FORMAT ERROR SHOULD BE SET 

;BRANCH IF GOOD 

;A 16 BIT PER WORD READ WAS ATTEMPTED 
;WHEN THE DISK HAD 

;THE FORMAT BIT=O0= 18 BITS PER 

;WORD THE READ WAS 

; COMPLETED BUT ERROR REG 

WAS NOT RIGHT 

sNOTE DCK WILL BE SET BECAUSE 

;ECC HAS NOT BEEN GENERATED 


SEQ 0167 


tow iy -RP04/5/6 DSKLS OT oo 


RJGD.P 


034054 


034056 
034062 
034070 
034076 
034102 
034104 
034106 


034110 


034156 


034160 


034234 
034240 


034252 
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000004 


012706 
012737 
012737 
004037 
051534 
052560 
000000 


005037 


052764 


004037 


104401 
000000 


004737 


001000 
000076 
177777 
042650 


047616 


044140 


042650 


042732 
177774 


062562 


002064 
002006 
047456 
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002032 
047732 


047664 
047626 


145426 
145422 


145424 
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sp eeeererereerrererererereeeeterererereteReeeeeeeereeeeeeeeeeee ee 


s*TEST 76 ERROR REGISTER #1-BIT 4 -FORMAT ERROR 


edie THE SIMULATED DISK HEADER IS FILLED WITH CYLINDER 0 
see TRACK 0, SECTOR 0 FORMAT 18 BITS PER WORD 

Seed A WRITE DATA COMMAND IS GIVEN WITH SAME HEADER 

neo EXCEPT FORMAT BIT. THE DATA SHOULD NOT BE WRITTEN. 


jsteetececcecceccceccareerceccecccarsassanseasensantsccsecsessses 
18176: SCOPE 

>*NOW A WRITE DATA WILL BE ATTEMPTED WITH 

;*WRONG FORMAT BIT 


MOV #STACK,SP ;RESET STACK 
MOV MTINO,Q#TSTINM = ;THIS SAVES TEST NUMBER 
MOV #-1,Q#NOSYNC ;SET FLAG SO THAT DATA SYNC 


;AND DATA IS NOT READ 
FRMAT1: JSR RO,@#CLAREA ;CLEAR SIMULATED DISK 
«WORD SK ; FROM 


J 
— 


-WORD TOLGAP+16 :10 
-WORD 0 ;DATA 
; * THESE oy SETUP FOR DISKLESS USE ONLY 
CLR aacyL sCYLINDER 0, FORMAT 18 BIT WORDS 
CLRB O#SECOTR+1 TRACK 0 
CLRB a#SECOTR :SECTOR 0 
CLR aaKEY1 sKEYI 0 
CLR aeKEY2 KEY2 0 
MOV #4 ,a#NOWORD :NO OF DATA WORDS 
MOV #1,08X :WRITE DATA 
JSR R5,a#CRC :GO TO CALCULATE CRC 
WCYL 
GCRC 


;* THESE AER REGULAR SETUPS 
JSR RO,@#CLAREA sFILL WRITE FROM BUFFER WITH 125252 


WRF ROM ; FROM 

WRF ROM+6 :10 

125252 ;DATA 

JSR PC ,a#CLDISK ; SETUP — REGISTERS 

MOV #-4 ,QRHWC :256 DATA WORDS 

MOV on @RHBA = ;STARTING ADDRESS OF WRITE BUFFER 

CLR @RHD :TRACK=0 SECTOR=0 

MOV Hintze, ORHOF 316 BITS PER WORD FORMAT 

CLR @RH CYLINDER 0 

JSR Pes NOACHECKT CHECK THAT DVA.RDY .DPR.DRY = 1 

TYPE ,CPHALT ;AND THAT NO OTHERS = 1. CANNOT CON- 
TINUE TESTING IF BOTH AREN'T TRUE 

HALT :STOP THE TEST 

MOV O#WRIDAT, ARI WRITE DATA=60 

CLR a*#ERFLGS ;CLEAR —_ FLAG 


JSR PC ,a#COMHD :WRITE DATA 
:t1F THE PROGRAM COMES BACK HERE uitnout ERROR PRINTOUTS 


Cl 
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034256 


034340 


034342 


034370 


034372 
034400 
034402 
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004737 


104004 


000401 
104005 


001345 


022737 
001401 
104020 
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ERROR REGISTER #1-BIT 4 -fORMAT ERROR SEQ 0169 


;*FROM THE ‘‘COMHD’’ ROUTINE IT MEANS SECTOR GAP, SYNC BYTE 
;*HEADER, HEADER CRC, HEADER GAP AND SYNC BYTE HAVE GONE BY 
;*AND SYNCS WERE CORRECTLY DETECTED 

> *DATA omy BE CHECKED 


042336 C,a#PUTREG SAVE REGISTERS 
002006 TST avERFLGS HAS ANY ERRORS OCCURED? 
BNE 4% ; BRANCH o YES 
000000 MOV #0,R0 ;GOOD DATA 
051534 MOV #DISK,R1 DATA WRITTEN INTO "DISK" 
000004 MOV #4,R2 ; COUNTER 
000005 047736 18: MOV #5, a#ERWORD :FOR ERROR WORD 
CMP RO,(R1)+ COMPARE GOOD DATA wW!TH DATA ON DISK 
BEQ 3$ :BRANCH IF GOOD 
001124 MOV RO, a#$GDDAT :GOOD DATA 
001126 MOV -(R1),a#$BDDAT ;BAD DATA 
047736 SUB R2,a#ERWORD ERROR WORD NO 
002006 TST avERFLGS ANY ERRORS ALREADY THERE? 
BNE 2$ :BRANCH IF YES 
ERROR 4 ERROR ON WRITE DATA COMMAND 
ON A WRITE DATA WITH 
:WRONG FORMAT NO DATA 
;SHOULD BE WRITTEN 
sWORD NO GIVES WORD IN ERROR 
BR 5$ :BRANCH TO AVOID PRINTING NEXT ERROR 
2$: ERROR 5 
5$: TST (R1)+ UNDO -(R1) FOR BAD DATA 
144564 MOV aSwWR,-(SP) :GET SWITCH SETTING 
177177 BIC #177177, (SP) KEEP ONLY SWITCH 7 AND 8 
000200 CMP #SWO7,(SP)+ -1S 7 SET AND 8 RESET. 
BEQ 4$ :BRANCH IF YES 
3$: DEC R2 s1F NOT COUNT 256 WORDS 
BNE 1$ BRANCH IF 256 NOT DONE 
:*NOW CHECK TO SEE THAT FORMAT ERROR BIT GOT SET 
000020 001716 4$: CMP #FER,Q#ERI FORMAT ERROR SHOULD BE SET 
BEQ S177 BRANCH IF GOOD 
ERROR 20 :A 16 BIT PER WORD WRITE DATA 


;WAS ATTEMPTED WHEN THE DISK 
;HAD THE FORMAT BIT =0=18 
;B1TS PER WORD THE WRITE 
;WAS CORRECTLY ABORTED 

;BUT ERROR REG. 1 WAS WRONG 


- 
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7503 
7504 ppeeeeeeeerrereeeerereeereeererererereeereeeeeeeeereeereeeeTeee 
stg s*TEST 77 RHER1 - BIT #2 - REG. MODIFICATION REFUSED 
7507 al IN THIS TEST THE REGISTERS ARE IN TWO GROUPS 
7508 pee FIRST = RHCS1,RHDST,RHOF ,RHCA,RHER1,RHERZ2,RHERS - SETS RMR 
7509 Pll SECOND = RHMR,RHAS = DOES NOT SET RMR 
cass 7*e 1F WRITING IS ATTEMPTED DURING AN OPERATION 

* 
7512 See 
ez pee ONLY ONE REGISTER IS WRITTEN INTO THAT IS RHCA 

te 
7515 tee 
7516 7** 1 THE REGISTERS CONTENTS ARE SAVED IN ‘'REINTO'’ BUFFER 
7517 ,*e 2 WRITE HEADER AND DATA JS STARTED 
751c 3 et 3 ATTEMPT IS MADE TO WRITE INTO REGISTERS 
eth 3 *t 4 ALL REGISTERS ARE COMPARED 
7521 ppeeeeeerereeeeeterrreetertrrerettrerereeeeeeeeeeAKe ter eee eee 
rose 034404 000004 TST77: SCOPE 
7524 034406 012706 001000 MOV MSTACK,SP sRESET STACK 
7525 034412 012737 000077 002032 MOV MTINO,Q#TSTNM = ;THIS SAVES TEST NUMBER 
7526 034420 004737 042732 JSR PC ,a#CLDISK ;CLEAR DISK 
7527 034424 004737 042766 JSR PC ,a#CHECKT ;CHECK THAT DVA,RDY,DPR,DRY = 1 
7528 034430 104401 062562 TYPE »CPHALT ;AND THAT NO OTHERS = 1. CANNOT CON- 
7529 ;TINUE TESTING IF BOTH AREN'T TRUE 
7530 034434 000000 HALT ;STOP THE TEST 
7531 034436 012700 001652 MOV #MRHCA,RO 
7532 034442 012005 1$: MOV (RO)+,R5 3R5 HAS ADDRESS OF REG. UNDER TEST 
7533 034444 052777 000040 145164 28: BIS #CLR,@RHCS2 
pause 034452 013777 001774 145156 MOV @#UNIT,ARHCS2 sREINSTATE UNIT NO. 
poet ;*SET UP FOR AN OPERATION (WRITE HEADER AND DATA) 
7558 034460 013777 002066 145152 MOV a#WRIFOR,@RHCS1 SS ae AND DATA=62 

§ H 
7540 034466 012777 177766 145136 MOV #-10. ,aRHWC 310 WORDS 
7541 034474 012777 002114 145132 MOV #WRFROM,QRHBA ;BUS ADDRESS = WRFROM 
7542 034502 012777 000010 145134 MOV #10,@RHDST ;DESIRED TRACK=0, SECTOR=10 
7543 034510 052777 000010 145120 BIS #BAl] ,aRHCS2 ;BUS ADDRESS INCREMENT INHIBIT 
7544 034516 012777 010000 145124 MOV #FMT22,QRHOF sFORMAT 16 BIT WCRDS 
eee 034524 005077 145122 CLR @RHCA sCYLINDER =0 
46 
pete > *SAVE REGISTERS 
4 

7549 034530 004037 043424 JSR RO, a#SAVER s SAVE 
7550 034534 001640 RHCS1 >FROM 
7551 034536 003160 REINTO s1c 
£443 034540 000016 14. = NUMBER OF REGISTERS SAVED 
7554 :*NOW THE COMMAND IS GIVES TO 
7555 s*WRITE HEADER AND DATA FOR CYL=0, SECTOR=10 
7556 :*TRACK=0 11 COMES BACK AFTER ONE SECTOR 
et 44 ;*HAS PASSED 


on 


—_— ——- --—- eS 
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7559 034542 012777 000001 145110 MOV #DMD ,ARHMR :SET DIAGNOSTIC MODE . 
7560 034550 005277 145064 INC @RHCS1 :60 TO RHCS1 WITH 62 
ree) 034554 012715 177672 MOV #177672,aR5 sey vt ae ALL BITS EXCEPT 
7563 034560 052737 000001 003200 BIS #DMD, Q#REINTO+20° ;SET DMD IN SAVED REGISTER RHMR 
7564 034566 052737 000004 003162 BIS #RMR.AMREINTO+2 ;SET RMR IN saved REG. RHERI 
7565 034574 042737 000200 003202 BIC #ORY, "@FREINTO+22. sCLEAR DRY IN RHDS1 
7566 034602 052737 040000 003202 BIS #ERR.QMREINTO+22 SET ERR IN RHDS1 
7567 034610 052737 000001 003160 BIS #60, a#REINTO :SET GO IN SAVED REG. RHCS1 
toe. 034616 042737 000200 003160 BIC #RDY,QMREINTO ;CLEAR RDY BIT 
7570 :*AFTER AN ATTEMPT TO WRITE INTO A REGISTER 
144] s*SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE 
7573 034624 004037 043424 JSR RO, a#SAVER : SAVE 
7574 024630 001640 RHCS1 >FROM 
7575 034632 002114 WRF ROM :10 
ete 034634 000016 14. s NUMBER 
7578 :*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
7579 s*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
7580 :#S0 THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
eH! 034636 113737 003177 002133 MOVB a#REINTO+17,a#WRFROM4+17;SAVE UPPER RHAS 
7583 
otee s*COMPARE REGISTERS BEFORE ATTEMPTED WRITE WITH AFTER 
7586 034644 004037 043626 JSR RO, a#COMPAR : COMPAR 
7587 034650 003160 REINTO :GO0 BUFFER 
7588 034652 002114 WRF ROM TEST BUFFER 
7589 034654 000016 14, NUMBER 
7590 034656 034664 4% RETURN FOR ERROR 
7591 034660 034664 4$ : SAME 
7592 034662 034704 5$ RETURN FOR GOOD COMPARISON 
7593 034664 013705 047736 4$: MOV Aa#ERWORD,RS GETTING READY TO INDEX 
7594 034670 060505 ADD R5,R5 :DOUBLE ERROR WORD 
7595 034672 016537 001636 042402 MOV RHCS1-2(R5),@WRECADR ;FAILING REG. ADDRESS 
7596 034700 104001 ERROR 1 :CONTENTS OF REGISTER 
7597 034702 000207 RTS PC =CHANGED WITH 
7598 :AN ATTEMPT TO waite 
7599 DURING AN OPERATION 
hae i * THE FOLLOWING CLEAR MAY SET THE ATA BIT BECAUSE GO IS HIGH 
601 
rene 034704 004737 042732 S$: iSR PC ,a#CLDISK CLEAR DISK 
6 
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CZRJGD.P 


034742 


034744 


034746 
034752 
034760 


034764 


034770 
034774 
034776 
035000 


035002 


035022 


000004 


004037 


060001 


000604 


012706 
012737 
005037 


004737 


004037 


Sy eeteeeeerereererereeeerererereerererereneeeeeeteeeeteneeeetereee 


S*TEST 100 MAKE CURRENT CYLINDER = 1 
,eetererereeerererereererreneeeerereteeereeteeeeKKeteeeeraneee Ree 

181100: SCOPE 

001000 MOV WSTACK,SP :RESET STACK 

000100 002032 MOV WTTNO,Q#TSTNM =: THIS SAVES TEST NUMBER 

042732 JSR PC ,aaCLDISK ZINIT DRIVE 

000001 144722 MOV #DMD , ARHMR SET DIAGNOSTIC MODE 

045304 JSR RO,AMMAKECYL | : SUBROUTINE TO GIVE A SEEK 


;COMMAND FOLOWED BY AN INIT 
; THIS SHOULD CHANGE RHCC 


1 ;CHANGE RHCC TO 1 
py eeeereeererererereererererereeeereereeeeKeeKeteKeeKkereeKteeeeee 
s*TEST 101 ERROR REG] - BIT #7 - HEADER COMPARE ERROR 
pee THE SIMULATED DISK IS SET TO READ CYLINDER=0, TRACK=1 
jet SECTOR=1, KEYS=1, 256 WORDS OF 177400 
pee A READ HEADER AND DATA COMMAND IS GIVEN TO READ 
pee CYLINDER=1, TRACK=1, SECTOR=1, KEY1=1, KEY2=1 
jet REINTO BUFFER 1S FILLED WITH 0 
pee WRFROM IS FILLED WITH 10000,401,1,1.1, AND ALL 177400 
pee AFTER THE READ THE REINTO BUFFER IS EXPECTED TO 
pee HAVE WHAT IS IN WRFROM - 10000,401,1,1 AND ALL 177400 
SPURTE AEA EAE AEA TATE EAA A EATER ATER AAA AT RARER EATER EES 
TST101: SCOPE 
001000 MOV #STACK,SP ;RESET STACK 
000101 002032 MOV #TITNO, aaTSTNM sTHIS SAVES TEST NUMBER 
047732 CLR a#NOSYNC sSET FLAG SO THAT DATA SYNC 
sAND DATA IS READ 
s*FILL SIMULATED DISK 
044414 JSR PC, ,a#SETDSK :SET UP SIMULATED DISK 
s*FILL REINTO BUFFER WITH O 
042650 JSR RO, @#CLAREA sFILL REINTO BUFFER 
REINTO >FROM LOCATION 
REINTO+<256. #2> 710 LOCATION 
0 :DATA 
st*FILL WREROM WITH 10000,401,1,1, AND ALL 177400 
002114 MOV #WREROM,RO 
010000 MOV #FMT22,(RO0)+ :10000 INTO wRFROM 
000401 MOV #401, (R0)+ 3401=TRACK1,SECTORI 
000001 MOV #1, (R0)+ :1 INTO WRFROM+ 
000001 MOV #1,(RO)+ 31 INTO WRFEROM+6 
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035026 
035032 
035034 
035036 


035040 


035060 


035062 
035064 
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002124 
003114 
177400 


004037 
2 


000000 


000001 
000240 
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174 
ERROR REG! = BIT #7 = HEADER COMPARE ERROR 


*FILL A 
JSR 


Lt 0 
RO,@#CLAREA 


WRFROM+ 10 


WRF ROM+< 
177400 


>*CYLIND 
stTRACK 


s*SECTOR = 


JSR 
2 


256.%2> 


ER=1 
=] 
1 


RO, a#HCCRCE 


;FILL WRFROM 
FROM 


;10 
;DATA 
s*NOW GIVE A READ HEADER AND DATA COMMAND 


;READ HEADER AND DATA 
CYLINDER 

SECTOR 

7 TRACK 


WORD COUNT 
sRHBA BUFFER 
; READ 


;HEADER COMPARE 
;RETURN POINT FROM HCCRCE 


SEQ 0173 
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CZRJGD.P 10-SEP-79 11:00 1101 ERROR REG! - BIT #7 - HEADER COMPARE ERROR SEQ 0174 Ci 
7687 
7688 ppeteereerrteerereerererrereererererteeeeererereeteneeeetereTetee 
7689 s*TEST 102 MAKE CURRENT CYLINDER = 0 
7690 ppeteeenerererreerrererererereeeeeeereteeeerereeeeeeeeeeeeeereTeee 
7691 035066 000004 TST102: SCOPE 
7692 035070 012706 001000 MOV #STACK,SP sRESET STACK 
7693 035074 012737 000102 002032 MOV WTTNO,Q#TSTNM 8 ;THIS SAVES TEST NUMBER 
7694 035102 004737 042732 JSR PC ,a#CLDISK ; INIT DRIVE 
7695 035106 012777 000001 144544 MOV #DMD ,ARHMR ;SET DIAGNOSTIC MODE 
7696 035114 004037 045304 JSR RO, @#MAKECYL ; SUBROUTINE TO GIVE A SEEK 
7697 ; COMMAND FOLOWED BY AN INIT 
7698 ;THIS SHOULD CHANGE RHCC 
7699 035120 000900 0 ;CMANGE RHCC TO 0 
7700 
7701 
7702 
7703 pptteeeretrerrerererererereeereerertertereeeeeteteeneteneeer eee 
oe :*TEST 103 ERROR REG! - BIT #7 = HEADER COMPARE ERROR 
7706 il THE SIMULATED DISK IS SET TO READ CYLINDER=0, TRACK=1 
7707 *e SECTOR=1, KEYS=1, 256 WORDS OF 177400 
7708 alia A READ HEADER AND DATA COMMAND IS GIVEN TO READ 
7709 pte CYLINDER=0, TRACK=0, SECTOR=1, KEY1=1, KEY2=1 
7710 3 ee REINTO BUFFER IS FILLED WITH O 
7711 pet WRFROM IS FILLED WITH 10000,401,1,1,1. AND ALL 177400 
7712 pee AFTER THE READ THE REINTO BUFFER IS EXPECTED TO 
as, ee HAVE WHAT IS IN WRFROM - 10000,401,1,1 AND ALL 177400 

4 
7715 pete eneeteeeeetereeeeeteeetere Keer ere AAA Tee eee ATTA TTT 
7716 035122 000004 TST103: SCOPE 
7717 
7718 
7719 035124 012706 001000 MOV MSTACK,SP sRESET STACK 
7720 035130 012737 000103 002032 MOV #TTNO,d#TSTNM sTHIS SAVES TEST NUMBER 
7721 035136 005037 047732 CLR a#NOSYNC ;SET FLAG SO THAT DATA SYNC 
7722 s;AND DATA IS READ 
7723 
M4 s*FILL SIMULATED DISK 
arse 035142 004737 044414 JSR PC ,a#SETDSK ;SET UP SIMULATED DISK 
7728 s*FILL REINTO BUFFER WITH 0 


035146 004037 042650 JSR RO,Q#CLAREA FILL REINTO BUFFER 

7731 035152 003160 RE INTO ;FROM LOCATION 
035154 004160 REINTO*<256.*#2> >TO LOCATION 
035156 000000 0 ;DATA 


7735 s*FILL WREROM WITH 10000,401,1,1, AND ALL 177400 


03 012700 002114 MOV #WRFROM,RO 
03 012720 010000 MOV WFMT22,(RO)* 10000 INTO WRFROM 
7739 035170 012720 000401 MOV #401,(R0)+ 7401=TRACK1,SECTOR] 
03 012720 000001 MOV #1,(RO)+ ;1 INTO WRFROM+ 
03 012720 000001 MOV #1, (RO)+ ;1 INTO WRFROM+6 
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035212 
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035240 
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004037 042650 
002124 


003114 
177400 


004037 
2 


000000 


000001 
000240 
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ERROR REG! - BIT #7 = HEADER COMPARE ERROR SEQ 0175 
stFILL ALL O 

JSR RO,@#CLAREA sFILL WRFROM 

WRFROM+10 ; FROM 

WRF ROM+<256.*#2> = 10 

177400 DATA 


;*NOW GIVE A READ HEADER AND DATA COMMAND 
> *CYLINDER=0 


s*TRACK = 0 

s*SECTOR = 1 

JSR RO, @#HCCRCE 

72 ;READ HEADER AND DATA 
0 s CYLINDER 

1 SECTOR 

0 s TRACK 

-256. sWORD COUNT 

REINTO ;RHBA BUFFER 

0 : A 

1 ;HEADER COMPARE 

NOP sRETURN POINT FROM HCCRCE 


Ci 
Ci 
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035244 


035272 


035276 


035300 


035302 
035306 


035314 


000004 


004037 


000001 


000004 
012706 
012737 
012737 


004737 


004037 


125252 


004037 
003160 
004160 


001000 
000104 
042732 
000001 
045304 


001000 
000105 


177777 


044414 


042650 


042650 


MACY11 30A(1052) 
1103 
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ERROR REG] - BIT #7 = HEADER COMPARE ERROR 


sp eteerererererereeerrerererrreetereeerereeeeeeeeeeeeAeeeeeeee eee 


:*TEST 104 MAKE CURRENT CYLINDER = 1 
ppt eeeeererererereererrerteererrreetrerereneeteeeeeeereeeATeeT ete 
TST104: SCOPE 
MOV WSTACK,SP RESET STACK 
002032 MOV #TTNO,a4TSTNM ;THIS SAVES TEST NUMBER 
JSR PC ,a#CLDISK INIT DRIVE 
144366 MOV #DMD ,ARHMR :SET DIAGNOSTIC MODE 
JSR RO ,a#MAKECYL ; SUBROUTINE TO GIVE A SEEK 
;COMMAND FOLOWED BY AN INIT 
: THIS SHOULD CHANGE RHCC 
1 > CHANGE RHCC TO 1 
ppeeeeeeereeeeetereneretetreteereeeeteetAteAee eee eee TERETE TEES 
s*TEST 105 ERROR REG.1 - BIT #7 - HEADER COMPARE ERROR 
ee THE SIMULATED DISK IS SET UP FOR CYLINDER=0, TRACK=1 
; oe SECTOR=1, KEYS=1, 256 WORDS OF 177400 
ee A WRITE DATA COMMAND IS GIVEN TO WRITE CYLINDER=1 
3 te TRACK=1, SECTOR=1, KEY1=1, KEY2=1 
;** WRFROM BUFFER IS FILLED WITH 125252 
ger REINTO BUFFER IS FILLED WITH 177400 
ptt AFTER THE WRITE COMMAND THE DISK IS EXPECTED 10 
ee HAVE 177400 
ppeeenerereererererrererrettererereerereeereteneeeeeerenerererees 
TST105: SCOPE 
MOV #STACK,SP ;RESET STACK 
002032 MOV #TTNO,a#TSTNM :THIS SAVES TEST NUMBER 
047732 MOV #-1,a#NOSYNC 3SET FLAG SO THAT DATA SYNC 


;AND DATA IS NOT READ 
s*FILL SIMULATED DISK 
JSR PC ,a#SETOSK ;SETUP SIMULATED DISK 
*FILL WREROM WITH 125252 


JSR RO,@#CLAREA :FILL WREROM BUFFER 
WRF ROM >FROM LOCATION 

WRF ROM+<256,*2> ;10 LOCATION 

125252 ;DATA 


FILL REINTO WITH 256 WORDS OF 177400 
:*THIS 1S WHAT IS EXPECTED TO BE ON DISK EVEN AFTER 
7*AN ATTEMPT TO WRITE 125252 


JSR RO,@#CLAREA FILL REINTO BUFFER 
RE INTO FROM LOCATION 
REINTO*<256,#2> 10 


1 14 
JGDO, + eae DSKLS CTRLR1 = MACYI1 i? ieee a “SEP=79 11:11 PAGE 178 


CZR 
CZRJGD.P 10-SEP-79 11:00 1105 RROR REG.1 - BIT #7 - HEADER COMPARE ERROR SEQ 0177 
rece 035356 177400 177400 
7826 ;*NOW GIVE A WRITE DATA COMMAND 
7827 s*CYLINDER = 1, 
7828 ;*TRACK = 1 
7829 > *SECTOR = | 
7830 
7831 035352 004037 044542 JSR RO, a#HCCRCE 
7832 035356 000060 60 WRITE DATA 
7833 035360 000001 1 ; CYLINDER 
7834 035362 000001 1 ; SECTOR 
7835 035364 000001 1 ; TRACK 
7836 035366 177400 -256. ;WORD COUNT 
7837 035370 002114 WRF ROM ;RHBA BUFFER 
ee 035372 000001 1 s WRITE 
7840 035374 000001 1 ;HEADER COMPARE 
7841 035376 000240 1$: NOP RETURN POINT FROM HCCRCE 


Oo 


CZRIGDO,RPO4/5/6 DSKLS CTRLRI 
Pil 10-SEP-79 11:00 


CZRJGD.P 


035400 
035402 


035426 


035432 


035434 


035436 
035442 


035450 


035456 


035462 
035466 
035470 
035472 


035474 


000004 


004037 


000000 


000004 


012706 
012737 


012737 


004737 


004037 
002114 
003114 
125252 


004037 


001000 


045304 


001000 
000107 


177777 


044414 


042650 


042650 


MACY11 


062032 
144232 


002032 
047732 


J.14 
30A(1052) 10-SEP-79 11:11 PAGE 179 
1105 ERROR REG.1 - BIT #7 = HEADER COMPARE ERROR 


peer enererererererererererertetereerenee *eeenrenetereretereeeenet 


s*TEST 106 MAKE CURRENT CYLINDER = 0 


sy ereerererrerererrrerrerererererereteeeteeeReeeeeeeerinereeeeene 


181106: SCOPE 


MOV STACK ,SP RESET STACK 
MOV MTINO,Q#TSTINM =; THIS SAVES TEST NUMBER 
JSR PC ,a#CLDISK ; INIT D 


RIVE 
MOV #OMD ,ARHMR ;SET DIAGNOSTIC MODE 
JSR RO, @#MAKECYL ; SUBROUTINE TO GIVE A SEEK 
;COMMAND FOLOWED BY AN INIT 
THIS SHOULD CHANGE RHCC 


0 ; CHANGE RHCC TO 0 
ppeeeeeeereeeerentrereereeeeteeeeeteeerreNeenereenetereeeTeeeT eee 
:*TEST 107 ERROR REG.1 - BIT #7 - HEADER COMPARE ERROR 
see THE SIMULATED DISK IS SET UP FOR CYLINDER=0, TRACK=1 
;e8 SECTOR=1, KEYS=1, 256 WORDS OF 177400 
;e= A WRITE DATA COMMAND 1S GIVEN TO WRITE CYLINDER=0 
see TRACK=0, SECTOR=1, KEY1=1, KEY2=1 
al WRFROM BUFFER IS FILLED WITH 125252 
;oe REINTO BUFFER IS FILLED WITH 177400 
3;ee AFTER THE WRITE COMMAND THE DISK IS EXPECTED 10 
pet HAVE 177400 


*s@eereeereteerrtetereereeeeeeeeeteteeete teeter eeeeeee 


1$1107: SCOPE 
MOV #STACK,SP :RESET STACK 
MOV #TTINO,a#TSTNM =: THIS SAVES TEST NUMBER 
MOV #-1,aMNOSYNC SET FLAG SO THAT DATA SYNC 


;AND DATA IS NOT READ 
s*FILL SIMULATED DISK 


JSR PC ,a#SETOSK :SETUP SIMULATED DISK 
s*FILL WREROM WITH 125252 

JSR RO,@#@CLAREA sFILL WRFEROM BUFFER 
WRF ROM >FROM LOCATION 

WRF ROM*+<256.#2> 3:10 LOCATION 

125252 sDATA 


S*FILL REINTO WITH 256 WORDS OF 177400 
*THIS 1S WHAT IS EXPECTED TO BE ON DISK EVEN AFTER 
peAN ATTEMPT TO WRITE 125252 


JSR RO, @#.\ AREA sFILL REINTO BUFFER 


SEQ 0178 



















CZRJGD.P11 
7899 035500 


7900 035502 
7901 035504 


7908 035506 


7915 035526 


7917 035530 
035532 


CZRJIGDO,RPO4/5/6 DSKLS CTRLRI 


10-SEP-79 11:00 


003160 
004160 
177400 


004037 
000060 
000000 
000001 
090000 
177400 
002114 
000001 


000001 
000240 


044542 


MACY11 30A(1052) 
1107 
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ERROR REG.1 - BIT #7 - HEADER COMPARE ERROR 


REINTO >FROM LOCATION 
RE INTO*<256.#2> 710 
177400 


:*NOW GIVE A WRITE DATA COMMAND 
s*CYLINDER = 0, 


s*TRACK = 0 

> *SECTOR = 1 

JSR RO, @#HCCRCE 

60 sWRITE DATA 
0 s CYLINDER 

1 ; SECTOR 

0 7 TRACK 

-256. ;WORD COUNT 
WREROM ;RHBA BUFFER 
1 sWRITE 

1 ;HEADER COMPARE 








;RETURN POINT FROM HCCRCE 


Arete “ 


SEQ 0179 


CZRJGDO,RPO4/5/6 DSKLS CTRLRI 
CZRJGD.P11 10-SEP-79 11:00 


7935 035534 000004 


7938 035536 012706 001000 
7939 035542 012757 900110 
7940 035550 005037 047732 


7945 035554 004737 044414 
7946 035560 005137 051516 


7950 035564 004037 042650 


7953 035574 000000 


7957 035576 700 002114 


7961 035616 720 000001 


7965 035622 004037 042650 
7966 035626 002124 
7967 035630 003114 
7968 035632 177400 


7975 035634 004037 044542 


MALY)? 


002032 


0A(1052) 
1107 
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ERROR REG.1 - BIT #7 = HEADER COMPARE ERROR . 


sp eeeeeeerreeeteeeeeeeeereeeereteeeeeeee etek eeKAeAAAA AeA eee 


:*TEST 1 


_+ 


Wee 


7110: 


10 RHER1 = BIT #8 - CRC ERROR (READING) 


THE SIMULATED DISK 1S SET TO READ CYLINDER=0, TRACK=1 
SECTOR=1, KEYS=1, 256 WORDS OF 177400 

A READ HEADER AND DATA COMMAND IS eeyen TO READ 
CYLINDER=0, TRACK=1, SECTOR=1, KEY1=1, KEY2=1 

REINTO BUFFER IS FILLED WITH O 
WRFROM 1S FILLED WITH 10000,401,1,1,1, AND ALL 177400 
AFTER THE READ THE REINTO BUFFER is * BRPECTED TO 

HAVE WHAT IS IN WRFROM = 10000,401,1,1 AND ALL 177400 


THREAT eeeeeeeereeAeteeeeeeeteaentkaeataeeeeeeeetine 


SCOPE 

MOV #STACK,SP RESET STACK 

MOV #TINO, a#1STNM ; THIS SAVES TEST NUMBER 

CLR a#NOSYNC ;SET FLAG SO THAT DATA SYNC 


;AND DATA IS READ 
;*FILL SIMULATED DISK 


JSR PC ,a#SETDSK ;SET UP SIMULATED DISK 


COM a#wCRC ; CHANCE CRC TO GIVE HCRC 
s*FILL REINTO BUFFER WITH O 

JSR RO,@#CLAREA ;FILL REINTO BUFFER 
REINTO ;FROM LOCATION 


;T0 LOCATION 
;DATA 


:*FILL WRFROM WITH 10000,401,1,1, AND ALL 177400 


MOV #WRFROM,RO 
MOV MFMT22,(RO)+ 


anette 


;10000 INTO WRFROM 


MOV #401,(RO)+ 7401=TRACK1,SECTOR1 
MOV #1,(RO)+ ;1 INTO WRFROM+ 
MOV #1,(RO)+ :1 INTO WRFROM+6 


s*FILL ALL O 


JSR RO,@#CLAREA FILL WRFROM 


WRFROM+10 3; FROM 
WRF ROM+<256. *2> 310 
177400 sDATA 


:*NOW GIVE A READ HEADER AND DATA COMMAND 
: *CYLINDER=0 

s*TRACK = 1 

s*SECTOR = 1 


JSR RO, d#HCCRCE 


SEQ 0180 


oT oe | 


CZRIGDO ,RPO4/5/6 DSKLS ae 


CZRIGD.P11 


035640 


035654 


035656 
035660 


10-SEP-79 
000072 
0 


000000 


000000 
000240 


MACY1i 30A(1052) 


111 


1 
0 


x" it 
10-SEP-79 11:11 


PAGE 182 
RHER1 - BIT #8 - CRC ERROR (READING) 


72 ;READ HEADER AND DATA 
0 ; CYLINDER 
1 SECTOR 
1 7 TRACK 
-256. ;WORD COUNT 
REINTO ;RHBA BUFFER 
;READ 
0 ;CRC ERROR 
NOP ;RETURN POINT FROM HCCRCE 


SEQ 0181 


N 14 

CZRJGDO,RPO4/5/6 DSKLS CTRLRI MACY11% 30A( 1} tvimead™ 10-S EP-79 11:11 PAGE 183 

CZRJGD. P11 10-SEP-79 11:00 s 1110 HER] = BIT #8 = CRC ERROR (READING) SEQ 0182 
7988 
7989 
7990 sp teeeeeeerererererereeetereteeeeeeeeeeeeeeKeeeeeeeeneeeeeeee eee 
eed :*TEST 111 RHER1 = BIT 8 = CRC ERROR (WRITING) 
7993 7 ee THE pacts ett * ag 1S SET UP FOR CYLINDER=0, TRACK=1 
7994 ;ee SECTOR=1, KEYS=1, 256 WORDS OF 177400 
7995 ll A WRITE DATA COMMAND 1S GIVEN TO WRITE CYLINDER=0 
7996 ;ee TRACK=1, SECTOR=1, KEY1=1, KEY2=1 
7997 pte WRF ROM BUFFER IS FILLED WiTH 125252 
7998 :*e REINTO BUFFER IS FILLED WITH 177400 
7999 ;ee AFTER THE WRITE COMMAND THE DISK IS EXPECTED TO 
cone ;e* HAVE 177400 
8002 SP eeeeeeeeeereeeeeeee eee eee eee eee eee eee R eee 
8003 035662 000004 TST111: SCOPE 
8004 
8005 
8006 035664 012706 001000 MOV WSTACK,SP ;RESET STACK 
a s44 035670 012737 000111 002032 MOV #TINO,Q¢TSTNM ; THIS SAVES TEST NUMBER 
8009 035676 012737 177777 047732 MOV #-1,a#NOSYNC ;SET FLAG SO THAT DATA SYNC 
coat ;AND DATA IS NOT READ 
ois ;*FILL SIMULATED DISK 
8014 035704 004737 044414 j JSR PC ,a#SETOSK ;SETUP SIMULATED DISK : 
ths 035710 005137 051516 COM a#wCRC ;CHANGE CRC TO GIVE HCRC 
aath S*FILL WREROM WITH 125252 
8019 035714 004037 042650 JSR RO,@#CLAREA sFILL WRFROM BUFFER 
8020 035720 002114 WRF ROM ;FROM LOCATION 
8021 035722 003114 WRF ROM+<256. *2> :T0 LOCATION 
east 035724 125252 125252 DATA 
8024 ;*FILL REINTO WITH 256 WORDS OF 177400 
8025 7*THIS IS WHAT IS EXPECTED TO BE ON DISK EVEN AFTER 
once 7*AN ATTEMPT TO WRITE 125252 
8028 035726 004037 042650 JSR RO,@#CLAREA sFILL REINTO BUFFER 
8029 035732 003160 REINTO ;FROM LOCATION 
8030 035734 004160 REINTO+<256. *2> :10 
aes 035736 177400 177400 
8033 :*NOW GIVE A WRITE DATA COMMAND 
8034 :*CYLINDER = 0, 
8035 s*TRACK = 1 
8036 > *SECTOR = | 
8037 
8038 035740 004037 044542 JSR RO, a#HCCRCE 
8039 035744 000060 60 sWRITE DATA 
8040 035746 000000 0 CYLINDER 
8041 035750 000001 1 SECTOR 
8042 035752 000001 1 7 TRACK 
80435 035754 177400 -256. ;WORD COUNT 





RR ae FAN irl ecient naeetah LEN BOTS. had Nata eae Khe ee tT ME atk “ec ty alee ted 


B 15 
Sew eres DSKLS CTRLR1 = MACYI1 it) he 10-SEP-79 11:11 PAGE 184 


CZRJGD.P 10-SEP-79 11:00 RHER1 = BIT 8 = CRC ERROR (WRITING) SEQ 0183 
8044 035756 002114 WRF ROM ;RHBA BUFFER 
reed 035760 000001 1 ; WRITE 
8047 035762 000000 0 ;CRC ERROR 
ay 035764 000240 1$: NOP ;RETURN POINT FROM HCCRCE 


C 15 
C7RJGDO,RPO4/5/6 DSKLS etre: MACY11 tt ha 10-SEP-79 11:11 PAGE 185 


CZRJGD. P11 10-SEP-79 RHER1 = BIT 8 - CRC ERROR (WRITING) SEQ 0184 

8051 

aret ;*SET UP FOR THE TWO LAST SECTOR TRANSFERRED TESTS FOLLOWING 

8054 ppetttererereeretrerereererreereeeterreeeeeeeeeeeeeeeeeRee AeA 

8055 035766 005737 002036 TST @#RPO6 ;MOVE RPO6 FLAG TO ITSELF TO TEST 

8056 035772 001401 BEQ 2% 31f = 0 TREAT DRIVE AS RPO4 

8057 035774 000402 BR 3% S TREAT AS RPO6 - DO NEXT ‘‘MAKECL'' & TEST 

8058 035776 000137 036452 2$: JMP a4#D00G ;D0 SECOND FOLLOWING ‘’MAKECL’’ AND TEST 

8059 036002 3$: 

8060 ppeeteeeerereeeererereeeretereereretereeene eee eeeeeeeee eee eee 

806 

8062 

8063 

8064 Cemetary ta leis ich 

8065 s*TEST 112 MAKE CURRENT CYLINDER = 814. 

8066 ppt eeeeeeeeerereetereeeteeerteeetieeeeeeee eee eeRe eee ATT 

8067 036002 000004 TST112: SCOPE 

8068 036004 012706 001000 MOV #STACK,SP ;RESET STACK 

8069 036010 012737 000112 002032 MOV ATTINO,Q#TSTINM ;THIS SAVES TEST NUMBER 

8070 036016 004737 042732 JSR PC ,a#CLDISK s INIT DRIVE 

8071 036022 012777 000001 143630 MOV #DMD ,ARHMR ;SET DIAGNOSTIC MODE 

8072 036030 004037 045304 JSR RO, @#MAKECYL ; SUBROUTINE TO GIVE A SEEK 

8073 ;COMMAND FOLOWED BY AN INIT 

8074 ;THIS SHOULD CHANGE RHCC 

8075 036034 001456 814. ;CHANGE RHCC TO 814. 

8076 

8077 

8078 

8079 

8080 

8081 

8082 Ppeeeeeeeeeeeeee eee etree eee re Aree e TATA e ee TT E 

ety s*TEST 113 RHDS1 (BIT #10) =- LAST SECTOR TRANSFERRED, ‘LST’ 
4 

8085 3ef WRITE CYLINDER 814., FORMAT 16 BITS PER WORD 

8086 3 ee TRACK 18., SECTOR 21., KEYS 0, NUMBER OF WORDS 

8087 ;*e 256., OF 377 

8088 3 et "LST' BIT # 10 = RHDS1, SHOULD SET AFTER WRITE 

8089 di 1S COMPLETE. 

8090 

8091 ppeteeeeereerereeetrreteee eee tt eee eee Kee eee eS 

8092 036036 000004 TST113: SCOPE 

8093 

8094 

8095 036040 012706 001000 MOV #STACK,SP ;RESET STACK 

as 036044 012737 000113 002032 MOV #TTNO, aavTSTNM sTHIS SAVES TEST NUMBER 

8098 036052 004037 042650 JSR RO, nen ;CLEAR SIMULATED DISK 

8099 0360056 051534 -WORD DISK ; FROM 

8100 036060 052560 WORD TOLGAP+16 3:10 

a ao 036062 000000 -WORD 0O DATA 

He :*THESE ARE SETUP FOR DISKLESS USE ONLY 
4 

8105 036064 012737 011456 047616 MOV WBIG.'FMT22, sith “ieee 814. 

8106 6 BITS PER WORD 


On 
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CZRIGDO,RPO4/5/6 DSKLS CTRLR) MACY11 30A(1052) 10-SEP-79 11:11 PAGE 186 
CZRIGD.P11 10-SEP-79 11:00 1113 RHDS1 (BIT #10) = LAST SECTOR TRANSFERRED, ‘LST’ SEQ 0185 
8107 036072 112737 000022 047621 MOVB #18. ,aMSECOTR+1; TRACK 18, 
8108 036100 112737 000025 047620 MOVB #21. .a#SECOTR sSECTOR 21. 
8109 036106 005037 047622 CLR aaKEYi sKEY1 0 
8110 036112 005037 047624 CLR aaKEY2 sKEY2 0 
8111 036116 012737 000400 047664 MOV #256.,@M#NOWORD ;NO OF DATA WORDS 
8112 036124 012737 000001 047626 MOV #1,aax sWRITE DATA 
8113 036132 004537 044140 JSR R5,aaCRC :GO0 TO CALCULATE CRC 
8114 036136 047616 CYL 
aid 036140 051516 WCRC 
Ht *THESE ARE REGULAR SETUPS 
8119 036142 004037 042650 JSR RO, @#CLAREA FILL WRITE BUFFER WITH 377 
8120 036146 002114 WRFROM ;FROM LOCATION 
8121 036150 003114 WRF ROM+<256.*2> >TO LOCATION 
8122 036152 000377 377 DATA 
8123 036154 004737 042732 JSR PC ,aa#CLDISK sSETUP GENERAL REGISTERS 
8124 036160 012777 177400 143444 MOV #-256. ,aRHWC 7256. DATA WORDS 
8125 036166 012777 002114 143440 MOV WWREROM,@RHBA ;STARTING ADDRESS OF WRITE BUFFER 
8126 036174 012746 000025 MOV #21.,-(SP) sSECTOR 21. 
8127 036200 112766 000022 000001 MOVB #18.,1(SP) : TRACK 18. 
8128 036206 012677 143432 MOV (SP)+,@RHDST SECTOR 21. TRACK 18. 
8129 036212 012777 010000 143430 MOV #FMT22,aRHOF 716 BITS PER WORD FORMAT 
8130 036220 012777 001456 143424 MOV #814. ,aRHCA [CYLINDER 814. 
8131 036226 004737 042766 JSR PC ,a#CHECKT CHECK THAT DVA,RDY,DPR,DRY = 1 
8132 036232 104401 062562 TYPE ,CPHALT AND THAT NO OTHERS = 1. CANNOT CON- 
8133 TINUE TESTING IF BOTH AREN'T TRUE 
8134 036236 000000 HALT sSTOP THE TEST 
8135 036240 013711 002064 MOV a#WRIDAT,aR1 sWRITE DATA=60 
8136 036244 005037 002006 CLR avERFLGS CLEAR ERROR FLAG 
8137 036250 004737 047456 JSR PC, a#COMHD sWRITE DATA 
8 
8140 :*]F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
8141 :*FROM THE ‘'COMHD'’ ROUTINE IT MEANS SECTOR GAP, SYNC BYTE 
8142 s*HEADER, HEADER CRC, HEADER GAP AND SYNC BYTE HAVE GONE BY 
ee S#AND SYNCS WERE CORRECTLY DETECTED, DATA IS TO BE CHECKED. 
4 
8145 036254 004737 042336 JSR PC, a#PUTREG sSAVE REGISTERS 
8146 036260 005737 002006 TST a#ERFLGS sHAVE ANY ERRORS OCCURED? 
8147 036264 001062 BNE 5$ : BRANCH IF YES 
8148 036266 012700 000377 MOV #377,R0 ;GOOD DAT . 
8149 036272 012701 051534 MOV #DISK,R1 :DATA ORITIEN INTO DISK" 
aay 036276 012702 000400 MOV #256.,R2 ; COUNTER 
8152 036302 012737 000401 047736 I$: MOV #256. +1 ,@MERWORD ; FOR ERROR WORD 
8153 036310 020021 CMP RO, (R1) COMPARE GOOD DATA WITH DATA ON DISK 
8154 036312 001424 BEQ 3$ :BRANCH IF GOOD 
8155 036314 010037 001124 MOV RO, a#SGDDAT =GOOD DATA 
8156 036320 014137 001126 MOV -(R1),a#$BDDAT ;BAD DATA 
8157 036324 160237 047736 SUB R2,a#ERWORD ERROR WORD NO 
8158 036330 005737 002006 TST a#ERFLGS :ANY ERRORS ALREADY THERE? 
8159 036334 001002 BNE e$ sBRANCH IF YES 
8160 036336 104004 ERROR 4 sERROR ON WRITE DATA COMMAND 
ote! 036340 000401 HR 64% :BRANCH TO AVOID PRINTING NEXT ERROR 
16 


CZRIGDO ,RPO4/5/6 DSKLS het 
CZRIGD.P11 1:00 


036342 


036366 


036370 


036430 


036432 
036440 
036442 
036444 


036446 


10-SEP-79 1 
104005 


001345 


013746 


104001 


013737 
104415 
000000 
000200 


000137 


142566 
177177 
000200 


001736 
001000 
002700 


001662 
002700 
001736 


001640 


037116 


MACY11 30A(1052) 
1113 


042402 
001124 
001126 


036442 


23: 


643: 


3$: 


4$: 


5$: 
6$: 


E 15 
10-SEP-79 11:11 PAGE 187 
RHDS1 (BIT #10) = LAST SECTOR TRANSFERRED, 


ERROR 
TST 


JMP 


5 

(R1)¢ 
OSWR,-(SP) 
#177177, (SP) 
#SWO7,(SP)+ 
4% 

R2 

1$ 


a#0S1,-(SP) 
#PROG, (SP) 


;WORD NO GIVES — 
;UNDO -(R1) FOR BAD 
:GET SWITCH SETTING 


;GET RHDS1 
;CLEAR PROG 


"LST 
A — 
DAT 


:KEEP ONLY SWITCH 7 AND 8 
:1S 7 SET AND 8 RESET 

;BRANCH OUT IF YES 
71f NOT COUNT 256 WORDS 
;BRANCH IF 256. NOT DONE 


a. ST!DPR! (DRY'VV,(SP)4;1S "LST' HIGH ? 


@WRHDS1,QM#REGADR- 


poner eeanees 


OMRHCS1 ,ae6$ 


aaCAt 


;BRANCH IF GOOD 


;FAILING REG. ADDRESS 
MLST!IDPRIDRY!VV,a#$GDDAT ;GOOD DATA 


;BAD DATA 
;"LST' DID NOT SET AFTER 
;LAST SECTOR ON LAST TRACK 
;ON LAST CYLINDER WAS 


;WRITTEN 


;VV BIT #6 MAY OR MAY NOT BE HIGH 
;SET UP ‘WAT’ SUBROUTINE 


;RHCS1 ADDRESS 
;WAIT FOR READY 


;DON'T DO THE RPO4 


*"LST' TEST FOLLOWING 


C 
SEQ q C 


CZRJGDO,RPO4/5/6 DSKLS CTRLRI 
10-SEP-79 11:00 


CZRIGD.P11 


036452 


036452 


036500 


036504 


036506 
036510 
036514 
036522 
036532 


036534 


036542 
036550 


036610 


000004 


004037 


000632 


000004 


012706 
012737 


004037 
051534 
052560 
000000 


001000 


045304 


001000 
000115 


042650 


010632 
000022 


044140 


MACY11 30A( 


002032 
143160 


002032 


047616 
047621 
047620 


047664 
047626 


111 


DOG: 
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RHDS1 (BIT #10) = LAST SECTOR TRANSFERRED, ‘LST’ 


Oe ee ee 


s*TEST 114 


sp eteeeerertereeeeteeeertreee terete eeeeeeteeerereeeNetereeeeee 


TST114: SCOPE 


MAKE CURRENT CYLINDER = 410. 


STACK ,SP ;RESET STACK 
#TTNO,Q@#TSTINM =; THIS SAVES TEST NUMBER 
PC ,a#CLDISK ; INIT DRIVE 

#D0MD ,@RHMR SET DIAGNOSTIC MODE 


RO, @#MAKECYL ; SUBROUTINE TO GIVE A SEEK 
;COMMAND FOLOWED BY AN INIT 
THIS SHOULD CHANGE RHCC 
CHANGE RHCC TO 410. 


sp erterererererereerererererereereereteteteneeeaeeeeerereneneeeee 


s*TEST 115 
WRITE CYLINDER 410., FORMAT 16 BITS PER WORD 


TRACK 18., 
256., OF 3 


RHDS1 (BIT #10) = LAST SECTOR TRANSFERRED, ‘LST' 


oo 21., KEYS 0, NUMBER OF WORDS 


"LST' BIT #10 = RHDS1 SHOULD SET AFTER THE 
WRITE 1S COMPLETED 


sp eeereererereeeerereretnereerenereeeeReereeeeeAAeeeetAeAeeAA eee 


TST115: SCOPE 


MOV 
MOV 


JSR 

«WORD 
. WORD 
« WORD 


st THESE 


se THESE 


MSTACK,SP sRESET STACK 

#TTNO,Q#TSTNM sTHIS SAVES TEST NUMBER 

RO, ~preempe ony SIMULATED DISK 
DIS 

TOLGAP*16 :10 

0 :DATA 


ARE SETUP FOR DISKLESS USE ONLY 


W410. 'FMT22,a#CYL;CYLINDER 410. 

16 BITS PER WORD 
#18. ,a#SECOTR+1; TRACK 18. 
#21.,QMSECOTR ;SECTOR 21. 
aeKEY1 KEY1 0 
aaeKEY2 sKEY2 0 
#256.,Qa#NOWORD ;NO OF DATA WORDS 
#1 aa sWRITE DATA 
RS aa#CRC 3G0 TO CALCULATE CRC 


ARE REGULAR SETUPS 


CZRIGDO,RPO4/5/6 DSKLS CTRLRI 


CZRJGD.P11 


036612 


036702 
036706 


036720 


036724 


037006 
037010 


037012 


10-SEP-79 11:00 


004037 


004737 


004737 


012702 
012737 


000401 
104005 


001345 


013746 


042650 


042732 


062562 


002064 
002006 
047456 


042336 
002006 


000377 
051534 
000400 


000401 
001124 
001136 


047736 
002006 


001736 


MACY11 30A(1052) 


142774 
142770 


000001 


142760 
142754 


047736 


1 
1115 


6 15 
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RHDS1 (BIT #10) = LAST SECTOR TRANSFERRED, ‘LST’ 


JSR RO,@#CLAREA 
WRF ROM 

WRF ROM+<256.#2> 

377 

JSR PC ,a#CLDISK 
MOV #-256. ,aRHwWC 
MOV #WRFROF ,ARHBA 
MOV #21.,-(S9) 
MOvVB #18.,1(SP) 
MOV (SP)+,@RHDS?T 
MOV #FMT22,aRHOF 
MOV #410. ,a@RHCA 
JSR PC ,a#CHECKT 
TYPE »CPHALT 

HALT 

MOV Q#WRIDAT,AR1 
CLR a#ERFLGS 

JSR PC ,a#COMHD 


sFILL WRITE BUFFER WITH 377 


;FROM LOCATION 
:10 ee 


:DAT 

;SETUP GENERAL REGISTERS 

1256. DATA WORDS 
mh OF WRITE BUFFER 


8. 
: SECTOR 21. TRACK 18. 


:16 BITS PER WORD FORMAT 


:CYLINDER 410. 

;CHECK THAT DVA,RDY,DPR,DRY = | 

AND THAT NO OTHERS = 1. CANNOT CON- 
:TINUE TESTING IF BOTH AREN'T TRUE 
;STOP THE TEST 

;WRITE DATA=60 

;CLEAR ERROR FLAG 

WRITE DATA 


:*1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
7*FROM THE “‘COMHD'’ ROUTINE IT MEANS SECTOR GAP, SYNC BYTE 
;*HEADER, HEADER CRC, HEADER GAP AND SYNC BYTE HAVE GONE BY 
:*AND SYNCS WERE CORRECTLY DETECTED, DATA IS TO BE CHECKED. 


1$: 


2%: 
64$: 


3$: 


4$: 


PC ,a#PUTREG 
a#ERFLGS 

5$ 

#377,R0 
#DISK,R1 
#256. ,R2 


RO,(R1)¢ 
3$ 


RO ,a#$GDDAT 
-(R1) ,a#$BDDAT 
R2,a#ERWORD 
a#ERFLGS 

2% 

4 

64$ 


5 

(R1)+ 
aswR,-(SP) 
#177177,(SP) 
#SW07,(SP)¢ 
4% 


R2 
1$ 


O#DS1,-(SP) 


;SAVE REGISTERS 

;HAVE ANY ERRORS OCCURED? 
;BRANCH IF YES 

;GOOD DATA 

;DATA WRITTEN INTO ‘‘DISK"’ 
; COUNTER 


#256.+1,a#ERWORD; 
;COMPARE GOOD DATA WITH DATA ON DISK 
;BRANCH IF GOOD 

;GOOD DATA 

;BAD DATA 

;ERROR WORD NO 

ANY ERRORS ALREADY THERE? 

BRANCH IF YES 

ERROR ON WRITE DATA COMMAND 

;BRANCH TO AVOID PRINTING NEXT ERROR 


;WORD NO GIVES WORD IN ERROR 
;UNDO -(R1) FOR BAD DATA 
GET SWITCH SETTING 

;KEEP ONLY SWITCH 7 AND 8 
:1S8 7 SET AND 8 RESET 
;BRANCH OUT IF YES 

7 1f NOT COUNT 256 WORDS 
;BRANCH IF 256. NOT DONE 


FOR ERROR WORD 


GET RHDS1 


ony 


H 15 
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potow: Netesl* DSKLS CTRLRI MACY11 7 A] 190 
CZRJGD.P 10-SEP-79 11:00 115 RHDS1 (BIT #10) = LAST SECTOR TRANSFERRED, ‘LST’ SEQ 0189 
8304 037044 042716 001000 Bic #PROG, (SP) sCLEAR PROG BIT 
8305 037050 022726 002700 CMP MLST'DPRIDRY'vv,(SP)* ;I3S "LST" HIGH ? 
8306 037054 001412 BEQ 5$ sWAIT FOR "RDY' IF GOOD 
8307 037056 013737 001662 042402 MOV Q@#RHDS1,Q@#REGADR ; FAILING REG. ADDRESS 
8308 037064 012737 002700 001124 MOV #LST'DPRIDRY' VV, a#S$GDDAT ;GOOD DATA 
8309 037072 013737 001736 001126 MOV ' @4DS1,a#S$BDDAT + BAD DATA. 
8310 037100 104001 ERROR 1 ;'LST' DID NOT SET AFTER 
8311 ;LAST SECTOR ON LAST TRACK ON LAST 
8312 :CYLINDER WAS WRITTEN - ‘vv' BIT #6 
Belz :MAY OR MAY NOT BE HIGH 
4 
8315 037102 013737 001640 037112 S$: MOV a#RHC(S1,a#6$ :SET UP ‘WAT'’ SUBROUTINE 
8316 037110 104415 WAT 
8317 037112 000000 6$: 0 :RHCS1 ADDRESS 
8318 037114 000200 RDY sWAIT FOR ‘RDY’ BIT 


On 


1 15 
CZRJGDO,RPO4/5/6 DSKLS CTIRLR1 = MACY11 or (1052) i0-SEP-79 11:11 PAGE 191 


CZRJGD. Pil 10-SEP-79 11:00 15 RHDS1 (BIT #10) = LAST SECTOR TRANSFERRED, ‘LST' SEQ 0190 
8319 | 
8320 
8321 037116 CAT: 

8322 ppeeeeeeeerereeeeeerererenrerereeeeeeeeeeeeeeteeeeeeeeeeNeeTATe 
tity s*TEST 116 ERROR REGISTER 1 = BIT #9 AOE 
8325 7*f A WRITE DATA ee ay 1S GIVEN TO CYLINDER 410./814. 
8326 3 ee SECTOR 21 TRACK 18, KEYS 0, DATA 3 
ty ,** WORD COUNT REGISTER FOR 522 (256+66+200) WORDS 
8329 yee AFTER 256 WORDS HAVE BEEN WRITTEN 
ths see "AOE" SHOULD COME UP 
8332 77 RHWC WILL SHOW 200 BECAUSE THE SILO IS 66 WORDS AND 
8335 ,*e 256 WORDS HAVE BEEN WRITTEN - TOTAL 322 
8334 ite THIS IS 200 SHORT OF 522 
8335 
8336 ppeeeeeeeeeereeeeerererteeerererereeteneeeeneeteneeeeeeeeeeeeTet 
8337 037116 000004 TS1T116: SCOPE 
8338 037120 012706 901000 MOV #STACK,SP sRESET STACK 
8339 037124 012737 000116 002032 MOV #TINO,Q#TSTNM ; THIS SAVES TEST NUMBER 
8340 037132 004737 042732 JSR PC, ,a#CLDISK s INIT AND SET UP GENERAL REG. CORRES. 
8341 037136 004037 042650 JSR RO,@#CLAREA sCLEAR SIMULATED DISK 
8342 037142 051534 ~ WORD DISK 7 FROM 
8343 037144 052560 WORD TOLGAP+16 310 
ste 037146 000000 -WwORD 0 sDATA 
8346 ;*THESE ARE TO SETUP FOR DISKLESS USE ONLY 
tat ;*AND WILL HANDLE RPO4 OR RPO6 DRIVES 

4 
8349 037150 005737 002036 TST @#RPO6 ;MOVE RPO6 FLAG TO ITSELF TO TEST 
thy 037154 001404 BEQ 10% ; TREAT DRIVE AS RPOG IF = 0 
8352 037156 012737 011456 047616 MOV WB1G.'FMT22,aMCYL;CYLINDER 814., 16 BITS PER WORD 
ttt 037164 000403 BR 118% s TREAT DRIVE AS RPO6 

4 
8355 037166 012737 010632 047616 108: MOV W410. 'FMT22,a#CYL;CYLINDER 410., 16 BITS PER WORD 
$338 ; TREAT DRIVE AS RPO4 
8358 037174 112737 000022 047621 118: MOvB #18. ,a#MSECOTR*1 ; TRACK 18. 
8359 037202 112737 000025 047620 MOVB #21.,a#SECOTR sSECTOR 21. 
8360 037210 005037 047622 CLR aaKeyl :KEYI 0 
8361 037214 005037 047624 CLR aaKEY2 KEY2 0 
8362 037220 012737 000400 047664 MOV #256. ,a#NOWORD NO OF DATA WORDS 
8363 037226 012737 000001 047626 MOV #1 aax sWRITE DATA 
8364 037234 0046537 044140 JSR RS .aaCRC :60 TO CALCULATE CRC 
8365 037240 047616 CYL 
ciet 037242 051516 WCRC 

6 
foe s*THESE ARE REGULAR SETUPS 

6 
8370 037244 004037 042650 JSR RO,@#@CLAREA sFILL WRITE BUFFER WITH 377 
8371 037250 002114 WRFROM >FROM 
8372 037252 003114 WRF ROM*+<256, #2> 310 
8373 037254 000377 377 sDATA 
8374 037256 004737 042732 JSR PC ,a#CLDISK sSETUP GENERAL REGISTERS 


on 


J.15 
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CZRIGDO,RPO4/5/6 DSKLS CTRLRI 1 
CZ2RJGD.P11 10-SEP-79 11:00 1116 ERROR REGISTER 1 - BIT #9 AOE SEQ 0191 
8375 037262 012777 176766 142342 MoV #-522.,aRHWC 522. DATA WORDS 
8376 637270 012777 002114 142336 MOV WWREROM,QRHBA  ;STARTING ADDRESS OF WRITE BUFFER 
8377 037276 012746 000025 MOV #21.,-(SP) :SECTOR 21. 
8378 037302 112766 000022 000001 MOVB #18.,1(SP) :TRACK 18. 
8379 037310 012677 142330 MOV (SP)+,@RHDST :SECTOR 21. TRACK 18. 
8300 037314 012777 010000 142326 MOV #FMT22,QRHOF :16 BITS PER WORD FORMAT 
8382 *CHECK TO SEE WHAT TYPE OF DRIVE IS BEING TESTED 
tat >®AND LOAD CYLINDER ADDRESS REGISTER WITH THE PROPER NUMBER 
8385 037322 005737 002036 TST @a#RPO6 ;MOVE FLAG TO ITSELF TO TEST 
8386 037326 001404 BEQ 128 : TREAT AS RPOG IF = 0 
8387 037330 012777 001456 142314 MOV #814. ,QRHCA “CYLINDER 814. 
8388 037336 000403 BR 13$ TREAT AS RPO6 
8389 037340 012777 000632 142304 12%: MOV #410. ,aRHCA [CYLINDER 410. 
3330 037346 138: 
8392 037346 004737 042766 JSR PC ,a#CHECKT CHECK THAT DVA,RDY,DPR,DRY = 1 
8393 037352 104401 062562 TYPE ,CPHALT AND THAT NO OTHERS = 1. CANNOT CON- 
8394 TINUE TESTING If BOTH AREN'T TRUE 
8395 037356 000000 HALT STOP THE TEST 
8396 037360 013711 002064 MOV a#WRIDAT, ARI sWRITE DATA=60 
fee 037364 005037 002006 CLR a#ERFLGS CLEAR ERROR FLAG 
pe s*THE REGISTERS WILL BE SAVED IN REINTO BUFFER 
8401 037370 004037 043424 JSR RO, a#SAVER : SAVE 
B402 037374 001632 RHWC >FROM 
8403 037376 003160 REINTO :10 
re) 037400 000023 19. NUMBER SAVED 
4 
8406 :*GIVE WRITE DATA COMMAND 
4 
608 037402 004737 047456 JSR PC ,a#COMHD :WRITE DATA COMMAND 
4 
8410 :*CHANGE SAVED REGISTERS TO EXPECTED VALUES 
4 
8412 037406 005787 002040 TST a#RH70 CHECK FOR RH70 CONTROLLER 
si? 037412 001497 BEQ JP >SKIP RH70 CODE AND DC RH11 IF NOT 
414 


8415 037414 012737 177376 003160 VARI: MOV #-258.,Q#REINTO ;SAVED RHWC SHOULD BE = 258. 
8416 037422 012737 003134 003162 VAR2: MOV #WREROM+<2#256.>+<2*8.> ,QMREINTO+2 


8417 ;SAVED RHBA SHOULD BE WRFROM+256+8 
is 037430 000406 BR JP2 SKIP NEXT RH11 CODE 
4 
8420 037432 012737 177470 003160 JPI: MOV #-200.,@#REINTO ;SAVED RHWC SHOULD BE = 200. 
8421 037440 012737 003329 003162 MOV WWRFEROM+<2*256.>+<2966.>,QMREINTO+2 
oest ;SAVED RHBA SHOULD BE WRFROM+256+66 
4 


WOR, QMREINTO*4 ;SAVED RHCS2 
WIR, QMREINTO*#4 SAVED RHCS2 


8424 037446 000200 003164 JP: ; 
S WSC! TRE ,Q#REINTO+6; SAVED RHCS1 SHOULD HAVE ‘SC* & "TRE" 
V 
V 


052737 i) 
8425 037454 042737 000100 003164 B 
8426 037462 052737 140000 003166 8 
8427 037470 012737 001000 003170 M WADE ,AMREINTO*+10 ;SAVED RHER1 SHOULD HAVE ‘AOE 
8428 037476 017737 142142 003172 M ORHDST,Aa#REINTO*+12;SAVED RHDST SHOULD HAVE= 
8429 sRHDST IS UNDEFINED 


On 






























CZRJGD.P11 


8450 037562 


8456 037564 


8461 037572 


8467 037610 
8469 037612 


8472 037626 
8474 037630 
8476 037632 


CZRIGDO ,RPO4/5/6 DSKLS 
10-SEP-7 


005737 


012737 


013737 
052737 
052737 


004037 
001632 
002114 
600021 


113/737 


004037 
003160 


037612 
037632 


013705 
060505 
016537 
104001 
000207 


005037 


CTRLR 
-79 11:0 





1 
:00 


002036 
001457 
000633 


002016 
000001 
142000 


043424 


003205 
043626 
047736 
001630 
002006 


042336 


000400 
000400 


MACY11 30A 
11 


003200 


003200 148: 
003204 15%: 


003206 
003210 


002141 


042402 


2$: 


047736 3%: 
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10-SEP-79 11:11 PAGE 193 
ERROR REGISTER 1 - BIT #9 AOE SEQ 0192 


>*CHECK TO SEE WHAT TYPE OF DRIVE IS BEING TESTED 
;*AND SET UP CYLINDER ADDRESS ACCORDINGLY 


TST awRP06 ;MOVE RPO6 FLAG TO ITSELF TO TEST 
AT AS RPO IF = 0 

MOV 1815, aaRE! n10+20: iSAVED DESIRED CYLINDER ADDRESS 

MOV #411. ‘aeneintos2d, :SAVED DESIRED CYLINDER ADDRESS 

MOV QWATTENT, @#REINTO+24 ;SAVED RHAS SHOULD HAVE APPRO. BIT 

BIS #DMD ,a#REINTO*+26; SAVED RHMR 

BIS #ATA‘ERR'LST,@#REINTO+30 ;SAVED RHDS! 


;tAFTER A WRITE DATA COMMAND WITH ‘AOE ERROR 
s*SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE 


JSR RO,a#SAVER 7 SAVE 
RHWC ; FROM 


;10 

;NUMBER OF REGISTERS SAVED 

;*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
;*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
;*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
MOVB Q#REINTO+25 ,aMWREROM+25; SAVE UPPER RHAS 


> *COMPARE REGISTERS BEFORE WRITE DATA COMMAND 
s*WITH AFTER COMMAND 


JSR RO,a#COMPAR ; COMPARE 

REINTO ;GO00D BUFFER 

WRFROM s TEST BUFFER 

if. sNUMBER OF REGISTERS 

1$ ;RETURN FOR ERROR 

1$ 3 SAME 

2$ ;RETURN FOR GOOD COMPARISON 

MOV O#ERWORD,RS ;GETTING READY TO INDEX 

ADD RS,R5 ;DOUBLE ERROR WORD 

MOV RHWC- 2(R5), NREGADR sFAILING REG. ADDRESS 

ERROR 1 FORCED AOE ERROR CAUSED IMPROPER 
“REGISTER CHANGE 

RTS PC ;RETURN FOR FURTHER COMPARISONS 
;NO ERRORS 

CLR a#ERFLGS ;CLEAR ERROR FLAG 


;*DATA IS TO BE CHECKED HERE 


JSR PC, a#PUTREG : SAVE REGISTERS 
MOV #377,R0 :GO0D DAT 
MOV #DISK,R1 ‘DATA ORITTEN INTO "DISK" 
MOV #256. .R2 : COUNTER 


MOV #256. .a#ERWORD ;FOR ERROR WORD 
¢ RO,(R1)¢ [COMPARE GOOD DATA WITH DATA ON DISK 





aon 


CZRJGDO ,RPO4/5/6 DSKLS etre 
CZRIGD.P11 11:00 


037666 
037670 


037736 


037740 
037742 


037744 


10-SEP-79 
001424 


001402 


005302 
001345 


001124 
001126 
047736 
002006 


141212 
177177 
000200 


MACY11 30A(1052) 


111 


4$: 
5$: 


6$: 


7$: 


1 
6 


Re, 
10-SEP-79 11:11 PAGE 194 


ERROR REGISTER 1 - BIT #9 AOE SEQ 0193 
BEQ 6$ ;BRANCH IF GOOD 

MOV RO, a#$GDDAT ;GOOD DATA 

MOV -(R1),a#$BDDAT ;BAD DATA 

SUB R2,a#ERWORD ;ERROR WORD NO 

TST a#ERFLGS ;ANY ERRORS ALREADY THERE? 

BNE 4$ BRANCH IF YES 

ERROR 4 ERROR ON WRITE DATA COMMAND WITH FORCED ‘AOE* 
BR 5% ;BRANCH TO AVOID PRINTING NEXT ERROR 

ERROR 5 ;WORD NO. GIVES WORD IN ERROR 

TST (R1)+ ;UNDO -(R1) FOR BAD DATA 


MOV OSWR,=<(SP) ;GET SWITCH SETTING 
BIC #177177,(SP) ;KEEP ONLY SWITCH 7 AND 8 


CMP #SWO7,(SP)+ ;1S 7 SET AND 8 RESET 

BEQ 7$ SORANCH GUT IF VES eoceceececcocccesce > 
DEC R2 7 1f NOT COUNT 256 WORDS 

SNE 3$ ;BRANCH IF 256. NOT DONE 


Mm 15 
CZRIGDO,RPOG/5/6 DSKLS CTRLR1 MACY11 30A(1052) 10-SEP-79 11:11 PAGE 195 
CZRJGD.P11 


037776 


040000 


040014 


040020 
040026 
040034 


040042 
040050 
040054 
040060 


040064 


040110 


040116 
040122 


000004 


10-SEP-79 11:00 1116 ERROR REGISTER 1 - BIT #9 AOE 
Peg get eg aR gg geal a a tk te ee li 
TEST 117 MAKE CURRENT CYLINDER = 0 
;eeeeeeeeeeeeeeereteteeeterereeteeeeeeeeeeeAKKeReteetaKteeeeetees 
181117: SCOPE 
001000 MOV WSTACK,SP ;RESET STACK 
000117 002032 MOV WTTNO,@#TSTNM ©: THIS SAVES TEST NUMBER 
042732 JSR PC ,aw#CLDISK INIT DRIVE 
000001 141666 MOV #DMD, ARHMR :SET DIAGNOSTIC MODE 
045304 JSR RO,@#MAKECYL | ; SUBROUTINE TO GIVE A SEEK 


004037 


900000 


000004 
012706 
012737 
004737 


012777 
052777 
042777 


012777 


004737 
104401 


:COMMAND FOLOWED BY AN INIT 
THIS SHOULD CHANGE RHCC 
0 ;CHANGE RHCC TO 0 


SP RARER EET TEETER AKA ATTA KAKA Aes 


:*TEST 120 ERROR REGISTER 1 - BIT #10 ‘IAE" 
pee A READ HEADER AND DATA IS GIVEN TO TRACK 20, SECTOR 0 
fr 
pee AN INDEX PULSE IS GIVEN TO GET RHLA 10 0 
n« 
;ee 1AE BIT SHOULD SET i 
SPARE ATA AAA AEA TAKA eee ATTA RARE 
181120: SCOPE 
001000 MOV #STACK,SP :RESET STACK 
000120 002032 MOV #TTNO,@#TSTINM :THIS SAVES TEST NUMBER 
042732 JSR PC, a#CLDISK =CLEAR REGISTERS AND SET UNIT NO. 
:*GIVE INDEX PULSE 
000001 141632 MOV #DMD,Q@RHMR :SET DIAGNOSTIC MODE 
000004 141624 BIS #MINX, @RHMR :SET INDEX 
000004 141616 BIC #MINX.@RHMR *CLEAR INDEX 


;*THESE ARE REGULAR SETUPS 


177400 141562 MOV #-256. ,ARHWC 3256 DATA WORDS 4 HEADER WORDS 
003160 MOV #REINTO,RO ; THESE TWO INSTRUCTIONS GETS 
141554 MOV RO,@RHBA ;ADDR, OF WRFROM INTO RO AND 
:BUS ADDRESS REGISTER 
010000 MOV #FMT22,(RO)+ Se abe a ah WORDS 
YLIN 

012000 MOV #12000, (R0)+ ;TRACK=20 SECTOR=0 KEYS=0 

CLR (RO)+ :KEY1=0 

CLR (RO) + ;KEY2=0 
000400 MOV #256. ,R5 ; COUNTER 
177777 1$: ! Ty tate ;MOVE ALL ONES FOR DATA 

BNE 1$ ;BRANCH IF DATA NOT COMPLETE 
012000 141526 MOV #12000,QRHDST ;TRACK=20 SECTOR=0 
042766 JSR PC ,@#CHECKT :CHECK THAT DVA,RDY,DPR,DRY = 1 
062562 TYPE ,CPHALT ;AND THAT NO OTHERS = 1, CANNOT CON- 


SS 


SEQ 0194 


Oma 


040126 
040130 


040154 
040140 
040146 


040152 


040162 


040164 
040170 
040174 


040202 


040240 


040246 
040252 
040254 
040256 


040260 


040266 


040504 
040306 


040322 


10-SEP-79 1 


000000 
013711 
005037 


012777 
005077 


004037 
001632 
003160 
000023 


052737 


004037 
001632 
002114 
000023 


113737 


004037 


040326 
013705 


104001 


CZRJGDO,RP04/5/6 DSKLS ate 
CZRJGD.P11 1:00 


002072 


002006 
010000 
141500 


043424 


001660 
000001 
000001 


140000 


140000 


043424 


003205 


043626 


047736 
001630 





141502 


141436 


003166 


003210 


002141 


042402 
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MACY11 30A(1052) 196 
1120 ERROR REGISTER i - BIT #10 "IAE' 


; TINUE a ther IF BOTH AREN'T TRUE 


;GET READY FOR WRITE HEADER AND 
aren WITH - i? RHCS1 


FORMAT eit-1. C6 BIT WORDS) 


s*THE REGISTERS WILL BE SAVED IN REINTO BUFFER 
JS SAVER ; SAVE 


:*GO TO WRITE HEADER AND DATA 


;NOW RO WAS MAINTENANCE REG. ADDR. 
So DIAGNOSTIC MODE 


;*CHANGE SAVED REGISTERS TO EXPECTED VALUE 
BIS C!TRE ,Q#REINTO+6 ;SAVED RHCS1 
WIAE ,A#REINTO+10 ;SAVED RHERI 
#12001 ,a#REINTO+12;SAVED RHDST 
QMATTENT,@#REINTO+24 ; SAVED RHAS 
#OMD ,Q@MREINTO+26 ; SAVED RHMR 
WATA'ERR,@#REINTO+30 ; SAVED RHDS1 


= gg and — “SAVE. COMPARES CAN BE DONE 
V 


‘10 
sNUMBER OF REGISTERS SAVED 


;*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
;*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
;*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 
Q#REINTO+25 ,AMWRFROM+25;SAVE UPPER RHAS 


; *COMPARE pg pee BEFORE READ IN PRESET COMMAND 
:*WITH ety COMMAND 


;NUMBER OF REGISTERS 
RETURN FOR ERROR 


; SAME 
;RETURN FOR GOOD COMPARISON 


;GETTING READY TO INDEX 
UBLE ERROR WORD 

sFAILING REG, ADDRESS 
;FORCED IAE CAUSED IMPROPER 
TREGISTER CHANGE 


R5,R :D0 
RHWC- =2(R5) ,aMREGADR 





eK ZTOVMOOMVDZA BACK TOVY*MCOOS BACK IWTO*MOVOCOZ BO KACK TO MOOD Z Br Kee TO sMoow 





CZRIGDO,RPOG/5/6 DSKLS CTRLRI 
CZRIGD.P11 10-SEP-79 11:00 


8618 040324 000207 
8619 


1 
rey 040326 004737 042732 


MACY11 30A(1052) 
1120 


3$: 


10-SEP-79 11:11 


RTS 


JSR 


PC 


PC, ,a#CLOLSr 


B 16 
PAGE 197 
ERROR REGISTER 1 - BIT #10 “IAE' 


RETURN FOR FURTHER COMPARISONS 
;NO ERRORS 
;CLEAR GO BIT 


SEQ 0196 


CZRIGDO ,RPO4/5/6 DSKLS stp 
CZRIGD.P11 1:00 


040332 
040334 
040340 
040346 


040352 
040360 
040366 


040374 
040402 
040406 


040412 


040416 
040422 
040424 
040426 
040432 
040436 
040440 
040442 


040450 
040454 


040460 
040462 
040466 


040472 
040500 


10-SEP-79 1 


000004 


004737 


012777 


012777 


004737 
104401 


000000 
013711 
005037 


012777 
005077 


001000 
000121 
042732 


000001 
000004 
000004 


177400 
002114 
141222 
010000 
000026 
000400 
177777 
000026 


042766 
062562 


002066 


002006 
010000 
141146 


MACY11 


002032 


141300 
141272 
141264 


141230 


141174 


141150 


C 16 
30A(1052) 10-SEP-79 11:11 PAGE 198 
1120 ERROR REGISTER 1 = BIT #10 "IAE" 


;etereerererererrerrretererereterereeeerenenereneeeeeeteeterereees 
eTEST 121 ERROR REGISTER 1- BIT #10 ‘IAE' 


ee A WRITE HEADER AND DATA IS GIVEN 10 SECTOR 22 
ef TRACK O CYLINDER 0 


fe WORD COUNT iS SET TO 256. 


:#* AN INDEX PULSE IS GIVEN TO GET RHLA TO 0 
ef 
yee 1AE BIT SHOULD SET 
py eereeerereerereeterererereeeeeeeteteeenereeeeneeneteaKeneenAeese 
1$1121: SCOPE 
MOV #STACK,SP SRESET STACK 
MOV HTINO,@#TSINM =: THIS SAVES TEST NUMBER 
JSR PC, a#CLDISK “CLEAR REGISTERS AND SET UNIT NO. 
:*G1VE INDEX PULSE 
mov #DMD ,ARHMR :SET DIAGNOSTIC MODE 
BIS WMINX, ARHMR “SET INDEX 
BIC #MINX. ARHMR “CLEAR INDEX 
:*THESE ARE REGULAR SETUPS 
MOV #-256.,aRHWC «256 DATA WORDS 4 HEADER WORDS 
MOV #WRFROM,RO ‘THESE TWO INSTRUCTIONS GETS 
MOV RO, @RHBA “ADDR. OF WRFROM INTO RO AND 
“BUS ADDRESS REGISTER 
MOV WFMT22,(RO)+ | :FORMAT=16 BIT WORDS 
“CYLINDER=0 
MoV #22.,(RO)+ STRACK=0, SECTOR=22, KEYS=0 
CLR (RO) 4 SKEY1=0 
CLR (RO) + “KEY2=0 
MOV #256. R5 : COUNTER 
1$: MOV H-1 (RO) “MOVE ALL ONES FOR DATA 
DEC R 
BNE 1$ :BRANCH IF DATA NOT COMPLETE 
MOV #22. ,@RHDST “TRACK=0 SECTOR=22 
JSR PC, a#CHECKT :CHECK THAT DVA,RDY,DPR,DRY = 1 
TYPE , CPHALT “AND THAT NO OTHERS = 1. CANNOT CON- 
“TINUE TESTING IF BOTH AREN'T TRUE 
HALT “STOP THE TEST 
MOV QMWRIFOR,AR1  ;:GET READY FOR WRITE HEADER AND 
“DATA WITH 62 IN RHCS1 
CLR aWERFLGS CLEAR ERROR FLAG 
MOV #FMT22,QRHOF = FORMA BIT=1 (16 BIT WORDS) 
CLR @RHCA “CYLINDER = 


7*AS EXCEPTION IS ASSERTED BEFORE RUN IS 

7 *LATCHED RHWC,RHBA,RHCS1,RHCS2 CANNOT BE CHECKED 
;*BECAUSE RHWC WILL VARY DEPENDING UPON GATE DELAYS 
[*ON DIFFERENT UNITS 


D 16 wey, 
CZRIGDO,RP04/5/6 DSKLS CTRL) MACY11 30A(1052) 10-SEP-79 11:11 PAGE 199 
CZRIGD.P11 10-SEP-79 11:00 1121 ERROR REGISTER 1- BIT #10 "IAE’ SEQ 0198 

8681 s*THE REGISTERS WILL BE SAVED IN REINTO BUFFER 

8682 040504 004037 043424 JSR RO, a#SAVER 7 SAVE 

8683 040510 001642 RHER1 >FROM 

8684 040512 003160 REINTO :T0 

8685 040514 000015 13. NUMBER SAVED 

roe tf :*GO0 TO WRITE HEADER AND DATA 

8689 040516 013700 001660 MOV Q#RHMR,RO :NOW RO HAS MAINTENANCE REG. ADDR 

8690 040522 012710 000001 MOV #OMD,aRO sSET DIAGNOSTIC MODE 

4 040526 052777 000001 141104 BIS #G0,aRHCS1 760 

8693 :*CHANGE SAVED REGISTERS TO EXPECTED VALUE 

8694 040534 012737 002000 003160 MOV #IAE,a#REINTO :SAVED RHER1 

8695 040542 012737 000027 003162 MOV #23. ,QMREINTO+2;SAVED RHDST 

8696 040550 013737 002016 003174 MOV Q#ATTENT, @#REINTO+14 ;SAVED RHAS 

8697 040556 052737 000001 003176 BIS #DMD,@#REINTO+16 ; SAVED RHMR 

Seve 040564 052737 140000 003200 BIS WATA'ERR, Q#REINTO+20 ;SAVED RHDS1 

8700 > *SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE 

8701 040572 004037 043424 JSR RO, a#SAVER : SAVE 

8702 040576 001642 RHER 1 : FROM 

8703 040600 002114 WRF ROM :10 

Hh) 040602 000015 13. NUMBER OF REGISTERS SAVED 

8706 :*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 

8707 ;*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 

8708 :*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 

s709 0406046 113737 003175 002131 MOVB Q#REINTO+15,a#WRFEROM+15;SAVE UPPER RHAS 

8711 

8712 :*COMPARE REGISTERS BEFORE READ IN PRESET COMMAND 

8713 s*W1TH AFTER COMMAND 

8714 040612 004037 043626 JSR RO, a#COMPAR : COMPARE 

8715 040616 003160 REINTO :GOOD BUFFER 

8716 040620 002114 WRF ROM :TEST BUFFER 

8717 040622 000015 13. NUMBER OF REGISTERS 

8718 040624 040632 2$ RETURN FOR ERROR 

8719 040626 040632 2$ 7 SAME 

8730 040630 040652 3$ RETURN FOR GOOD COMPARISON 

8721 

8722 040632 013705 047736 2$: MOV Q#ERWORD,RS GETTING READY 70 INDEX | 

8723 040636 060505 ADD R5,R5 DOUBLE ERROR WORD 

8724 040640 016537 001640 042402 MOV RHER1-2(R5), AHREGADR FAILING REG. ADDRESS 

8725 040646 104001 ERROR 1 ORCED IAE CAUSED IMPROPER 

8726 ‘REGISTER CHANGE 

8727 040650 000207 RTS PC *RETURN FOR FURTHER COMPARISONS 

8728 

8729 :NO ERRORS 

8730 

8731 040652 004737 042732 3$: JSR PC ,a#CLDISK :CLEAR GO BIT | 
i 
J 





CZRIGDO,RPO4/5/6 DSKLS CTRLRI 
CZRJGD.P11 11:00 


040656 
040660 
040664 
040672 


040676 
040704 
040712 


040720 
040726 
040732 


040736 


040752 


040760 
040764 


040770 
040772 


040776 
041002 


041010 
041014 


041016 
041024 


041026 


10-SEP-79 1 


000004 
012706 
012737 
004737 


012777 


004737 
104401 


000000 
013711 


005037 
012777 


005737 
001404 


012777 
000403 


012777 


001000 
000122 
042732 


0v0001 
000004 
060004 


177400 
002114 
140676 
000400 
177777 
000000 


042766 
062562 


002064 
002006 
010000 
002036 
001457 


000633 


E 16 
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21 ERROR REGISTER 1- BIT #10 “IAE' SEQ 0199 


; ,eerereerererrereeerrerererereeeeetereetrenetenekerereeeeeereeee 


TEST 122 ERROR REGISTER 1- BIT #10 “IAE’ 


* A WRITE DATA IS GIVEN TO SECTOR 0 
* TRACK 0 CYLINDER 411 


* WORD COUNT IS SET TO 256. 
« AN INDEX PULSE IS GIVEN TO GET RHLA TO 0 


MACY11 30A 
11 
2. 
eS 
se 
;* 
Fis 
22 
;* 
;* 
oe 1AE BIT SHOULD SET 
ppeeeeeeeererererereeeereretetereeeeeeeeKeKKeKeeeteeeteereeeeeeee 
TST122: SCOPE 

MOV #STACK,SP ;RESET STACK 
002032 MOV #TTNO,a4TSTNM ; THIS SAVES TEST NUMBER 
JSR PC ,a#CLDISK ;CLEAR REGISTERS AND SET UNIT NO. 
:*GIVE INDEX PULSE 

140754 MOV #DMD ,ARHMR :SET DIAGNOSTIC MODE 

140746 BIS #MINX, QRHMR ;SET INDEX 

140740 BIC #MINX. @RHMR ;CLEAR INDEX 

140704 

1$: 

140664 

140640 

140626 

140616 4%: 


;*THESE ARE REGULAR SETUPS 
MOV #-256. ,aRHWC 3256 DATA WORDS 4 HEADER WORDS 


MOV #WRFROM,RO ; THESE TWO INSTRUCTIONS GETS 
MOV RO,@RHBA ;ADDR. OF WRFROM INTO RO AND 
;BUS ADDRESS REGISTER 
MOV #256. ,R5 ; COUNTER 
MOV i at ;MOVE ALL ONES FOR DATA 
DEC R 
BNE 1$ ;BRANCH IF DATA NOT COMPLETE 
MOV #0.,@RHDST ;TRACK=0 SECTOR=0 
JSR PC ,a#CHECKT 7 CHECK THAT DVA,RDY,DPR,DRY = 1 
TYPE CPHALT ;AND THAT NO OTHERS = 1. CANNOT CON- 
; TINUE TESTING IF BOTH AREN'T TRUE 
HALT ;STOP THE TEST 


MOV a#WRIDAT, ARI ;GET READY FOR WRITE 
;DATA WITH 60 oa RHCS1 


CLR a#ERFLGS ;CLEAR ERROR FLA 

MOV #FMT22,QRHOF FORMA BIT=1 ie. BIT wORDS) 

TST Q#RPOG ;MOVE FLAG TO ITSELF TO TEST 

BEQ 4$ ; TREAT DRIVE AS RPOS IF FLAG = 0 
MOV #815. ,aRHCA :CYLINDER = 815 (ONE TOO MANY) 
BR 5$ ; TREAT DRIVE AS RPO6 

MOV #411. ,QRHCA :CYLINDER = 411 (ONE TOO MANY) 


; TREAT DRIVE AS RPO4 
7*AS EXCEPTION 1S ASSERTED BEFORE RUN 1S 


CZRJGDO,RPO4/5/6 DSKLS CTRLRI 


CZRJGD.P11 


041034 
941040 
041042 
041044 


041046 
041052 
041056 


041064 
041072 
041100 
041106 
041114 


041122 


041132 


041134 


041142 
041146 
041150 
041152 
041154 
041156 
041160 


041162 
041166 
041170 
041176 


041200 


041202 


10-SEP-79 11:00 


004037 


000015 


113737 


004037 


041202 
013705 
060505 
016537 
104001 


000207 


004737 


043424 


001660 
000001 
000001 
002000 


140000 


043424 


003175 


043626 


047736 
001640 


042732 


MACY11 30A(1052) 
T122 


140554 


003160 


003200 


002131 


"042402 


5$: 


2%: 


3$: 


F 16 
10-SEP-79 11:11 PAGE 201 
ERROR REGISTER 1- BIT #10 “IAE’ 


s*LATCHED RHWC,RHBA,RHCS1,RHCS2 CANNOT BE CHECKED 
;*BECAUSE RHWC WILL VARY DEPENDING UPON GATE DELAYS 
:*ON DIFFERENT UNITS 


;*THE REGISTERS WILL BE SAVED IN REINTO BUFFER 


JSR RO,@#SAVER 7 SAVE 

RHER1 ; FROM 

REINTO ;10 

13. ;NUMBER SAVED 

>*GO TO WRITE HEADER AND DATA 

MOV O#RHMR ,RO ;NOW RO HAS MAINTENANCE REG. ADDR. 
MOV #OMD ,aRO ;SET DIAGNOSTIC MODE 

BIS #GO,aRHCS1 ;G0 


;*CHANGE SAVED REGISTERS TO EXPECTED VALUE 
MOV WIAE ,aM#REINTO ; SAVED RHER1 
MOV #1. ,QWREINTO#2; SAVED RHDST 
MOV AWATTENT,Q#REINTO+14 ; SAVED RHAS 
BIS , #DMD,@#REINTO+16 ;SAVED RHMR 
BIS ~ #ATALERR,A@#REINTO+20 ; SAVED RHDS1 


: #S ve REGISTERS AGAIN SO THAT COMPARES CAN BE DONE 


JSR * RO, a#SAVER ; SAVE 

RHER' : FROM 

WREROM :10 

13, :NUMBER OF REGISTERS SAVED 


:*AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
s*OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 


:*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 


MOVB O#REINTO+15 ,a#WRFROM+15;SAVE UPPER RHAS 


> *COMPARE REGISTERS BEFORE READ IN PRESET COMMAND 
;*W1TH AFTER COMMAND 


JSR: RO, a#COMPAR ; COMPARE 

REINTO ;GOOD BUFFER 

WRF ROM ; TEST BUFFER 

13. sNUMBER OF REGISTERS 

2$ ;RETURN FOR ERROR 

P. ark > SAME 

a ;RETURN FOR GOOD COMPARISON 

MOV a#ERWORD,RS sGETTING READY TO INDEX 

ADD R5,R5 ;DOUBLE ERROR WORD 

MOV RHER1- 2(R5), AHREGADR sFAILING REG. ADDRESS 

ERROR 1 FOR CED 1AE CAUSED IMPROPER 
“REGISTER CHANGE 

RTS PC sRETURN FOR FURTHER COMPARISONS 
3NO ERRORS 


JSR PC ,a#CLDISK ;CLEAR GO BIT 


SEQ 0200 


G 16 
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8900 ppeeeeeeereerrerrerrererrrineeettererereneeeeeeneteteteeeeeeerees 





CZRJGD. Pil 10-SEP-79 11:00 1123 END OF DRIVE SEQ 0201 
8845 ppeeeeeeerereererrrereereeeerererererrereeeeereeeerereerereeeeet | 
8846 IeTEST 123 END OF DRIVE | 
8847 
8848 ;*e THIS IS THE END OF TEST FOR ONE DRIVE 
8849 : 3 ve IF THERE ARE MORE ORIVES THEN THE PROGRAM 
8850 Piel JUMPS TO TEST 5 FOR NEXT DRIVE TEST 
+34 ;*t END PASS 1S REACHED ONLY AFTER ALL DRIVES ARE COMPLETE 
8853 ppteereretereeeereeerertreerertrererereeeeKeeee terete eee Tee ete 
8854 041206 000004 TS1123: SCOPE 
8855 041210 012737 000001 001212 MOV #1,STIMES 3:00 1 ITERATION 
8856 041216 012737 000000 177776 MOV #0,PS trea aac PS 10 0 
°857 041224 104401 041232 TYPE ,65$ ;TYPE ASCIZ STRING 
8858 041230 000425 BR 64$ “GET OVER THE ASCIZ 
8859 3;65$: .ASCIZ £159<12>/TOTAL ERRORS ON THIS PASS ON UNIT NO. / 

8860 041304 64$: 

8861 041304 013746 001774 MOV Q#UNIT,-(SP) :GET READY TO TYPE UNIT NUMBER 

8862 041310 104405 TYPDS 

8863 041312 104401 041320 TYPE 67% 3; TYPE ASCIZ STRING 

8864 041316 000402 BR 66% 3;GET OVER THE ASCIZ 

8865 3:67$: .ASCIZ = / 

8866 041324 66$: 

8867 041324 013746 001112 MOV Q#SERTIL,-(SP) ;GET READY TO TYPE NUMBER OF ERRORS 

8868 041330 104405 TYPDS 

8869 041332 005037 001112 CLR Q#SERTIL ;CLEAR TOTAL NUMBER UF ERRORS 

8870 041336 005037 001102 CLR aaSTSTNM ;CLEAR TEST NUMBER 

+4 041342 005737 002002 TST @#SELECT :STARTING FROM 210 ? 

8873 041346 001413 BEQ 3$ s TEST NEXT DRIVE IF NOT 

8874 sCONTINUE ON THIS ONE lf SO 

8875 041350 005237 001100 INC aaSPASS ; INCREASE PASS COUNT 

8876 041354 104401 041537 TYPE » SENDMG s TYPE END PASS @ 

8877 041360 013746 001100 MOV O#SPASS ,-( SP) 

8878 041364 104405 TYPDS 

8879 041366 104401 041534 TYPE , SENULL 

not 041372 000137 007656 JMP aatTsts 200 NEXT TESTS ecco ocoeeoesoeeccesse > 

8882 041376 005337 001776 3$: DEC @#NCUNITS sNO. OF UNITS PRESENT DECREMENTED 

8883 041402 001413 BEQ $EOP ;BRANCH IF ALL DRIVES COMPLETE 

8884 041404 013700 001774 MOV a#UNIT,RO ;UNIT UNDER TEST 

8885 041410 012701 001754 MOV #UNITS,RI1 ; TABLE 

8886 041414 022100 1$: CMP (R1)+,R0 31S THIS UNIT JUST TESTED 

8887 041416 001401 BEQ 2$ BRANCH IF YES 

8888 041420 000775 BR 1$ BRANCH IF NO 

8889 041422 011137 001774 2$: MOV (R1),a#UNIT sTHIS IS NEXT UNIT 

aot 041426 600137 007656 JMP aa1stTs 260 FOR NEXT TESTS eeeeeoeeeceeeeeeces > 

8892 

8893 . SBITL 

8894 -SBTTL ***SUBROUTINES®**®* 

£895 SBITL 

8896 

8897 

8898 .SBTTL END OF PASS ROUTINE 

8899 
| 
j 


CZRJGDO, at DSKLS CTRLRI 
10-SEP-79 11:00 


CZRJGD.P 


041432 
041432 
041434 
041440 
041444 
041450 
041456 
041460 
041462 
041464 


041552 


000004 


000240 


000137 
vont + > 


000043 


001102 
001212 
001100 
100000 


041537 
001100 


041534 
000042 


377 
042412 
051501 


MACY11 30A(1052) 


001100 


000 
042116 
020123 


s*1F THERE ISN'T 


SEOP: 


SEOPCT: . 


SENDCT: . 


$GET42: 


SENDAD: 


$DOAGN: 


SRTNAD: . 
SENULL: 
SENDMG: 


H 16 
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END OF PASS ROUTINE 


;*INCREMENT THE PASS NUMBER ($PASS) 
s*TYPE “‘END PASS #XXXXX'' (WHERE XXXXX 1S A DECIMAL NUMBER) 
;*I1F THERES A MONITOR GO TO IT 


JUMP TO TSTI 


STSTNM 3;ZERO THE TEST NUMBER 

ther y 3;ZERO THE NUMBER OF ITERATIONS 
SPA >; INCREMENT THE PASS NUMBER 
#100000, SPASS :;DON'T ALLOW A NEG. NUMBER 
‘age :<L00P7? 

SDOAGN 77 YES 

“ent oat oe ;;RESTORE COUNTER 


, SENDMG TYPE “‘END PASS #'' 
$SPASS,-(SP) SAVE $PASS FOR TYPEOUT 
‘560 TYPE--DECIMAi ASCII WITH SIGN 
» SENULL 3: TYPE A NULL CHARACTER 
a#42,R0 ::;GET MONITOR ADDRESS 
$SDOAGN :;BRANCH IF NO MONITOR 
>:CLEAR THE WORLD 
PC, (RO) ::G0 TO MONITOR 


3; SAVE ROOM 
33 FOR 
7; ACT11 


a(PC)+ 7; RETURN 
TST1 
-1,-1,0 7;NULL CHARACTE® STRING 


<15><12>/END PASS #/ 


Spe eeeeeeeeeeeteeeeeeeteteee etree tree ete AeA 
+ * *HERE 1S A DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR WORKS. 
:*#0N HITTING AN ERROR IF THE LOOP ON ERROR SWITCH IS SET, THE 

7**PROGRAM GOES BACK = USUALLY BACK 10 THE BEGINNING OF THE TEST. 


;**WHEN THIS OPERATOR SELECTABLE SCOPE LOOP 1S USED THEN THE POINT 


-an], 


a3, 


. 
° 
4 
6 
Ps 
e 
. 
. 
‘ 
7 
. 
;ee 
* 

. 


;**THE PROGRAM GOES BACK TO CAN BE CHANGED. 

;**THE RESTRICTIONS TO THE POINT WHERE THE PROGRAM CAN GO ARE: - 

1T MUST BE WITHIN THE TEST UNDER CONSIDERATION 

LOOP ON ERROR SWITCH MUST BE SET 

THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONSIDERATION 

;**]F THE ERROR DOES NOT OCCUR WITHIN THE TEST UNDER CONSIDERATION 
;**THE PROGRAM WILL REVERT TO NORMAL OPERATION. HOWEVER, IF LOOP ON 
s*eTEST SWITCH IS SET AND THIS OPERATOR SELECTABLE SCOPE LOOP IS USED 
;**THEN THE PROGRAM WILL LOOP BACK TO THE SELECTED POINT WHEN IT 
;*#COMES TO THE END OF THE TEST UNDER CONSIDERATION. 


;**AFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH 1S PUT DOWN THEN 
;**NORMAL OPERATION WILL CONTINUE. 


SEQ 0202 


eee 





CZRJGDO,RPOG/5/6 DSKLS CTRLRI 
10-SEP-79 11:00 


CZRJGD.P11 


041554 
041556 


041566 


041632 
041632 
041636 
041640 
041644 


041676 
041676 
041702 
041704 
041710 
041714 


041776 
041776 
042002 


042064 
042064 
042070 


042136 
042136 
042140 
042144 
042150 
042154 


042214 
042214 
042220 


042322 


042334 


000000 


005037 
104401 
000421 


013746 
104402 
104401 
000414 


013746 
104402 
104401 
104401 
000430 


104401 
000430 


104401 
000422 


104412 
062716 
012637 
104401 
000417 


104401 
000440 


104412 
012637 
013746 
000002 


177776 
041570 


002032 
041646 


001110 


901223 
041716 


042004 


042072 


000002 
001106 
042156 


042222 


MACY] 


1 16 
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END OF PASS ROUTINE SEQ 0203 


pp eteeerererererererrrereererererereerereneeeeeeenteneneetereteeee 


TESTAD: 0 sFIRST ADDRESS OF TEST 
OPERSEL: 
CL PS sMAKE PROCESSOR STATUS ZERO 
TYPE oy itty ASCIZ STRING 
BR 64% sGET OVER THE ASCIZ 
tisoes eASCIZ <15><12>/THE PROGRAM WAS IN TEST NUMBER / 
64$: 
MOV OaTSTNM,-(SP) ;GET READY 10 TYPE TEST 
TYPOC me 
TYPE 67% sTYPE ASCIZ STRING 
BR 66% ;GET OVER THE ASCIZ 
Tage eASCIZ <15><12>/THE Loop’ BACK PC WAS / 
66$: 
MOV Q#SLPERR,-(SP) ;GET READY TO TYPE LOOP BACK PC 
TYPOC 
TYPE » SCRLF 
TYPE 09% 23 TYPE ASC1Z STRING 


BR 68$ ;GET OVER THE ASCIZ 
5;69$: .ASCIZ <15><12>/SET SWITCH FOR LOOP ON ERROR OR LOOP ON TEST/ 


TYPE 71% is TYPE ASCIZ STRING 
BR 708 GET OVER THE ASCIZ 
::71$: .ASCIZ <15><12>/TYPE THE FIRST PC OF THE TEST TO BE LOOPED ON/ 


TYPE ,73$ is TYPE ASCIZ STRING 
BR 72% GET gr THE ASCI2Z 
3:73$: .ASCIZ <15><12>/ FOLLOWED BY A CARRIAGE RETURN /<15><12> 


RDOCT 

ADD #2,(SP) 3;GET LPADR 

MOV (SP)+,a#$LPADR 

TYPE Wg +e TYPE ASCIZ STRING 

BR 74% :GET OVER THE ASCIZ 
ao eASCIZ <15><12>/TYPE THE PC WHERE YOU WANT/ 
4%: 

TYPE 77% ii TYPE ASCIZ STRING 

BR 768 :GET OVER THE ASCIZ 


s:77O: ASCIE o150¢12>/ THE PROGRAM TO LOOP BACK TO FOLLOWED BY A CARRIAGE RETURN /<15 


RDOCT 

MOV (SP)+,Q#$LPERR ;GET LPERR 
MOV Q@#$LPADR,-(SP) 

RTl 


~SBTTL SAVE REGISTERS ROUTINE 


s*THIS SAVES THE CONTENTS OF ALL HARDWARE REGISTERS 
seit MEMORY LOCATIONS TAGED FROM ‘WC’ TO “EC2"’ 


CZRJIGDO,RPO4/5/6 DSKLS CTRLRI 


CZRJGD.P11 


042336 


042374 


042376 
042400 
042402 


042404 
042410 
042412 
042416 
042422 
042426 
042432 
042436 
042442 
042444 
042446 
042450 
042452 
042454 
042456 
042464 
042472 
042474 
042500 
042502 
042504 
042512 


10-SEP-79 11:00 


000207 


000000 
000000 
000000 


012537 


004737 


001632 
001706 
000023 


042376 


042402 
042400 


042454 


042464 
001000 


001103 


001774 
055310 


MACY11 30A(1052) 


PUTREG: 


108: 
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SAVE REGISTERS ROUTINE 


‘2 

;*THIS 1S DONE SO THAT COMPARES ARE DONE WITH SAVED LOCATIONS 
> *AND NOT THE REGISTERS THEMSELVES. THIS WILL MAKE 

;*ERROR PRINTOUTS FOR GOOD AND BAD DATA ALWAYS DIFFRENT 


~SBTTL 


RO,-(SP) ;;PUSH RO ON STACK 
R1,-(SP) ;;PUSH R1 ON STACK 
R2,-(SP) ;;PUSH R2 ON STACK 
#RHWC RO ;STARTING ADDRESS OF REG 
#WC,RI :STARTING ADDRESS OF WERE SAVED 
WRHCC-RHWC+2/2,R2 ;NUMBER OF REG. INTO R2 
geen (R1)+ ;SAVE HARDWARE REG. 
R 

10$ 

(SP)+,R2 3;POP STACK INTO R2 
(S$P)+,R1 ;;POP STACK INTO R1 
(SP)+,R0 3;POP STACK INTO RO 

C 


FLOAT 1 AND 0 


;*FLOAT A ONE AND A ZERO THRU A DESIGNATED REGISTER 
;*ABSOLUTE ADDRESS OF REG. UNDER TEST IS IN R4 


MASK: 
LERR: 


REGADR: 


BITST: 


BLT1: 


BLT2: 
042712 
136446 BLT3: 


137124 


0 
0 
0 


;BI1TS UNDER TEST 
;ERROR HLT ADDRESS 


(R5)+, MASK ;FETCH DATA MASK 


(R5)+, RS ;GET ADDRESS OF REG. UNDER TEST 
R4, REGADR 

RS, LERR 3GET ERROR RETURN ADDR. 

a4, R5 ;MODIFY RETURN ADDR. TO JUMP OVER RTS 
#1, R3 INITIALIZE DATA PATTERN 

PC, BLT2 ;OUTPUT FLOATING ZERO 

PC. BLT2 ;QUTPUT FLOATING ONE 

7 ;SHIFT PATTERN 

R 

BLT ;BRANCH IF NOT COMPLETE 

R5 ;RETURN TO TEST 

R3 ; COMPLEMENT PATTERN 

WBLT5, @#LAD ;SET SCOPE LOOP 

#SWO9,aSWR ;LOOP ON ERROR 

4% ;BRANCH IF NO 

O*SERFLG ; ANY ERRORS 

4% ;BRANCH IF NO 


START WITH AN INIT 
Q#UNIT,@RHCS2 = ;SET UNIT NUMBER UNDER TEST 
PC ,a#$TKINT sINITILIZE TK 


———— 


SEQ 0204 
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9092 042644 
9093 042646 


042650 


woowowowowownowowowowovovnovn7n9o 
se er er er er er ae er ar er er eer 
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So 

= 

™m 

Co 

eo 

So 


MORRO Os Os Os Oe es 


042700 
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000240 
000207 


001374 


001124 


001124 


001126 
001640 


004200 
091636 


000002 


001126 
001126 


001124 
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LOAT 1 AND 0 SEQ 0205 
; INIT FOR try LOOPS 
4$: MOV af —" ; STORE GOOD DAT 
COM MASK AND MASK WITH PATTERN 
001124 BIC SFMASK, aescDDAT’ ;CLEAR THE REST 








COM aaMASK ;RESTORE MASK 
MOV Q#SGDDAT,(R4) ;QUTPUT TO REGISTER 
MOV eet ,aWSBDDAT INPUT FROM REGISTER 


aeMASK 
BIC ted @#SBDDAT ;AND MASK OUT RECEIVED DATA 
COM MASK RESTORE MASK 
CMP SFSCODAT, awseppai 1S DATA CORRECT 
BEQ 1$ ;BRANCH IF GOOD 
MOV (R4) ,a#$BDDAT 
CMP @#RHCS1,R4 REGISTER UNDER TEST RHCS1? 
BNE 2$ ;BRANCH IF NOT 
BIS eee. ,@#SGDDAT;SET RDY AND DVA 


28: CMP AMRHCS2,RG ;REGISTER UNDER TEST RHCS2? 
BNE 3$ ;BRANCH IF NOT 
MOV @R4,-(SP) :GET RHCS2 
BIC #*C<IR!OR>, (SP) ;KEEP IR AND OR BIT 
BIS (SP)+,@#$GDDAT ;SET IR OR BITS IF NEEDED 
3$: JSR Pty @LERR ;GO0 TO REPORT ERROR 
1‘. “94 a sREPLACE BY 104420 FOR LOCAL SCOPE LOOP 
: R 


-SBTTL CLEAR MEMORY ROUTINE 


THIS CLEARS ANY BLOCK OF MEMORY 
FILLING If WITH ANY DATA 


CALL 
JSR RO,CLAREA 
xX 


Y 


STARTING ADDRESS OF BLOCK 


s @® ese f@ 2 


Z ;DATA TO BE FILLED 
;*R1 WILL HAVE STARTING ADDRESS OF BLOCK TO BE FILLED 
*R2 AFTER SUBTRACTION WILL HAVE TWICE NUMBER OF LOCATIONS 
3*R3 WILL HAVE DATA TO BE FILLED 
:*T0 AVOID DIVIDE ROUTINE TWO DECREMENT R2 WILL BE USED 


CLAREA: 

MOV R1,-(SP) :;PUSH R1 ON SIACK 

MOV R2,-(SP) :;PUSH R2 ON STACK 

MOV R3,-(SP) 3;PUSH R3 ON STACK 

MOV (RO)+,R1 ; FROM 

MOV (RO)+,R2 310 

MOV (RO)+,R3 ;DATA 

SUB R1,R2 sNC. OF LOCATIONS MINUS TWO 

ADD #2,R2 ;GET TWICE NO OF LOCATIONS 
1$: MOV R3,(R1)¢ sMOVE IN DATA 

DEC R2 

DEC R2 

BNE 1$ ;BRANCH IF NOT COMPLETE 





CZRJGD.P11 10-SEP-79 11:00 CLEAR MEMORY ROUTINE 


9125 042702 012603 MOV (SP)+,R3 ;;POP STACK INTO R3 
9126 042704 012602 MOV (SP)+,R2 ;;POP STACK INTO R2 
9127 042706 012601 MOV (SP)+,R1 ;;POP STACK INTO RI 


L 16 oe He 
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SEQ 0206 

9128 042710 000200 RTS RG : RETURN 
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042712 
042714 


042730 


0427352 
042736 
042742 
042746 


042752 
042756 
042762 
042764 


001000 
042712 


001640 
001636 
001662 
001642 


000040 
001774 


MACY11 30A(1052) 
LOCAL TRAPS 


»SBTTL 
LAD: 0 


T.SCOP: BIT 
BEQ 





MOV 


1$: RT1 


> *EXAMPLE OF THE USE OF THE ABOVE 
LOOP BETWEEN X: 
@#LAD 


s*THIS WILL 


> *MOV aX, 
sek: oe 
“* eee 


** o-oo 


;¢ SCOP 1 


CLDISK: MOV 









10-SEP-79 
LOCAL TRAPS 


#sw09, 
1$ 
@#LAD, 


CLEAR DISK ROUTINE 


QAMRHCS1, 
Qa#RHCS2, 
@#RHDS1, 
Q#RHERI, 


WCLR,AR2 
Q#UNIT,AR2 
ari 


PC 





AND SCOP1 PROVIDED THERE 1s NO "'NEWTST"’ 


;R1 WILL BE CONTROL AND STATUS] 


 $€a 0207 


;R2 WILL BE CONTROL AND STATUS2 
3R3 WILL BE DISK STATUS REGISTERI 
3R4 WILL BE ERROR REGISTER #1 


;CLEAR ALL REG. 


;REINSTATE UNIT NO. 


;CLEAR FUNCTION BITS 








BI 
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CZRIGD.P11 10-SEP-79 11:00 CLEAR DISK ROUTINE SEQ 0208 

9157 
9158 
9159 -SBTTL CHECK DISK STATUS ROUTINES 
9160 
9161 
9162 s*THIS CHECKS THAT DEVICE AVAILABLE (DVA) AND READY (RDY) IN RHCS1 = 1 
9163 >*AND CHECKS THAT DEVICE PRESENT (DPR), DEVICE READY (DRY) IN RHDS1 = 1 
ares :#1T ALSO CHECKS THAT NO OTHER BITS IN THESE REGISTERS = 1 
9166 042766 011637 002014 CHECKT: MOV (SP) ,a#PCJSR ;SAVE PC OF JSR+4 
9167 042772 162737 000004 002014 SUB #4, aM#PCJSR ;GET PC OF JSR 
9168 043000 004757 042336 JSR PC ,a#PUTREG ;SAVE REGISTERS 
9169 043004 022737 004200 001714 CMP MDVA!IRDY,@#CS1 ;RHCS1 SHOULD HAVE DEVICE AVAILABLE 
9170 ;AND BE READY 
44 4 043012 001423 BEQ 3$ ;BRANCH IF GOOD 
9173 043014 032737 004000 001714 BIT #DVA,aaCS1 ;BAD SO TEST DEVICE AVAILABLE 
9174 043022 001004 BNE 1$ ;BRANCH IF DVA THERE 
9175 ©43024 010137 001122 MOV R1,a#S$BDADR ;ADDRESS OF BAD REGISTER (RHCS1) 
9176 0435030 104026 ERROR 26 ;RHCS1 DID NOT HAVE DEVICE 
9177 AVAILABLE AT START OF TEST 
9178 043032 000413 BR 3$ ;BRANCH TO NEXT COMPARE 
9179 043034 032737 000200 001714 I$: BIT #RDY,a#CS1 ; TEST READY 
9180 043042 001003 BNE 2$ ;1f RDY THERE BRANCH 
9181 043044 010137 001122 MOV R1,a#S$BDADR :ADDRESS OF BAD REGISTER (RHCS1) 
9182 043050 104026 ERROR 26 :RHCS1 DID NOT HAVE READY 
9183 :RIGHT AT START OF TEST 
9184 043052 000403 2$: BR 3$ ;BRANCH TO NEXT COMPARE 
9185 043054 010137 001122 MOV R1,a#SBDADR ;ADDRESS OF BAD REGISTER (RHCS1) 
9186 043060 104026 ERROR 26 ;RHCS1 HAD SOME BITS OTHER 
9187 ; THAN DVA AND RDY SET 
Abe ;ALL OTHER BITS SHOULD BE 0 
9190 043062 013746 001736 3$: MOV a#DS1,-(SP) ;GET RHDS1 
9191 043066 042716 001100 Bic #VV!PROG,(SP) ;CLEAR VV AND PROGRAMABLE BIT 
9192 043072 022726 000600 CMP #DPRIDRY,(SP)+;RHDS1 SHOULD HAVE THESE SET 
ria 043076 001424 BEQ 8$ ;BRANCH IF THEY ARE 

4 
9195 043100 032737 000400 001736 4$: BIT #DPR,a#DS1 ; TEST DRIVE PRESENT 
9196 043106 001004 BNE 5$ ;CONTINUE IF THERE 
9197 043110 010337 001122 MOV R3,a#$BDADR ;ADDRESS OF BAD REGISTER (RHDS1) 
9198 043114 104026 ERROR 26 ;RHDS1 DOES NOT HAVE DPR 
9199 043116 000413 BR 7$ ;BRANCH OUT 
9200 043120 032737 000200 001736 5$: BIT #DRY,aaDS1 TEST DRIVE READY 
9201 043126 001004 BNE 6$ ;1F DPR WAS THERE, BRANCH IF GOOD 
9202 043130 010337 001122 MOV R3,Q#$BDADR ;ADDRESS OF BAD REGISTER (RHDS1) 
9203 043134 104026 ERROR 26 ;RHDS1 DOES NOT HAVE DRY 
9204 043136 000403 RR 7$ ;BRANCH OUT 
9205 043140 010337 001122 6$: MOV R3,3#SBDADR ;ADDRESS OF BAD REGISTER (RHDS1) 
9206 043144 104026 ERROR 26 ;RHDS1 HAS SOME BITS OTHER 
9207 ; THAN MOL, DRY, DPR, SET 
9208 sALL OTHER BITS SHOULD BE 0 
34 043146 000207 7$: RTS PC ;RETURN TO TEST AND HALT 
921 
9211 043150 062716 000006 8$: ADD #6, (SP) ADJUST STACK TO GET OVER HALT IN TEST 


9212 043154 000207 RTS PC ;RETURN TO TEST AND CONTINUE TESTING 


on 


. 7 
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C2RIGD.P11 10-SEP-79 11:00 CHECK DISK STATUS ROUTINES SEQ 0209 


9213 


on 
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043156 
043162 
043170 
043174 


043202 
043204 
043210 


043212 
043214 


043222 
043224 
043230 


043232 


043270 
043272 


043274 
043300 


000427 
032737 


001004 
010137 
104026 


000417 
032737 


104026 
000207 


062716 
000207 


002014 


000200 


001122 


004000 


001122 


000200 


001122 


000400 
001122 


000006 


MACY11 


002014 
001714 


001714 


001736 


001736 
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CHECK DISK STATUS ROUTINES 


dD 1 
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SEQ 0210 


;*THIS CHECKS THAT DEVICE AVAILABLE (DVA) AND READY (RDY) IN RHCS1 = 1 
;*AND CHECKS THAT DEVICE PRESENT (DPR), DEVICE READY (DRY) IN RHDS1 = 1 


CHECKE: 


1$: 


4$: 
5$: 


MOV 
SUB 


(SP) ,a#PCUSR 


#4 ,aWPCISR 
PC ,a#PUTREG 
WROY ,aaCS1 


1$ 
R1,a#$BDADR 
26 


4% 
A#DVA,aaCS1 
2$ 
R1,a#$BDADR 
26 

4% 
#ORY,a#DS1 
3$ 
R3,a#$BDADR 
26 


4% 
#DPR,aaDS1 
5$ 
R3,aQ#$BDADR 
26 


PC 


#6, (SP) 
PC 


;SAVE PC OF JSR+4 

;GET PC OF JSR 

;READ & SAVE REGISTERS 

;RHCS1 SHOULD HAVE DEVICE AVAILABLE 
;AND BE READY 

;BRANCH IF GOOD 

;FAILING REGISTER 

;RHCS1 IS IN ERROR 

;DOES NOT HAVE DVA, RDY 

BRANCH OUT 

;RHCS1 SHOULD HAVE DEVICE AVAILABLE 
;AND BE READY 

BRANCH IF GOOD 

FAILING REGISTER 

;RHCS1 IS IN ERROR 

;DOES NOT HAVE DVA, RDY 

;BRANCH OUT 

;RHDS1 SHOULD HAVE DPR,DRY 
;BRANCH IF THERE 

;FAILING REGISTER RHDS1 

;RHDS1 DOES NOT HAVE DPR,DRY 
BRANCH OUT 

;RHDS1 SHOULD HAVE DPR,DRY 
BRANCH OUT AND CONTINUE IF THERE 
FAILING REGISTER RHDS1 

;RHDS1 DOES NOT HAVE DPR,DRY 


;RETURN TO TEST AND HALT 


;ADJUST STACK TO GET OVER HALT IN TEST 
;RETURN TO TEST AND CONTINUE TESTING 


3 
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CZRJGD.P11 10-SEP-79 11:00 CHECK DISK STATUS ROUTINES SEQ 0211 
9249 
9250 
9251 hy WAIT LOOP 
9252 be ONE LOOP OR ONE COUNT = 5.15 MICROSEC WITH BIPOLAR MEMORY (MIN) 
9253 ;* ONE LOOP OR ONE COUNT = 11.86 MICROSEC WITH CORE (MIN) 
4344 .* WITH CORE ERROR IS INDICATED AFTER ABOUT 650 MILLISEC (MIN) 
9256 043302 177777 TIMCNT: 177777 ;WAITING COUNT 
9257 043304 010046 WAIT.T: MOV RO,-(SP) ;SAVE RO 
9258 043306 016600 000002 MOV 2(SP) ,RO :GET ADRESS “ wet ADDERSS 
9259 043312 010037 001204 MOV RO, a#STMP3 :WAT PC+2 IN STMP3 
9260 043316 162737 000002 001204 SUB #2 ,QaSTMPS :WAT PC FOR rYPEOUT 
9261 043324 012037 001176 MOV (RO)+,a#STMPO :WAIT REGISTER ADDRESS 
9262 043330 012037 001200 MOV (RO)+,a#STMP1 ;WAIT ON BIT 
9263 043334 010066 000002 MOV RO,2(SP) RESTORE RETURN ON STACK 
9264 043340 012600 MOV (SP)+,RO ;RESTORE RO 
9265 043342 013737 043302 001202 MOV ae TIMCNT ,a#STMP2 > TEMPORARY COUNT 
9266 043350 033777 001200 135620 18: BIT Q#STMP1,a$TMPO ;1S REQUIRED BIT THERE? 
9267 043356 001021 BNE 2$ ;BRANCH IF YES 
9268 043360 005337 901202 DEC avSTMP2 ; COUNT 
9269 043364 001571 BNE 1$ ;BRANCH IF NOT TIME UP 
9270 043366 013737 043302 001202 MOV Oe TIMCNT ,aMSTMP2 TEMPORARY COUNT 
9271 043374 033777 001200 135574 38: BIT Qa#STMP1,a$TMPO ;1S REQUIRED BIT THERE? 
9272 043402 001007 BNE 2$ ;BRANCH IF YES 
9273 043404 005337 001202 DEC aaSTMP2 ; COUNT 
9274 043410 001371 BNE 3$ :BRANCH IF NOT TIME UP 
9275 043412 017737 135560 001126 MOV OSTMPO,a#$BDDAT ; REGISTER CONTENTS 
9276 043420 104016 ERROR 16 ;WAITED ON BIT FAILED 10 SET 
9277 043422 000002 2$: RT] 
9278 
9279 
9280 
4 hd CALL FOR THE ABOVE WAITLOOP IS 
9283 :* MOV aA, aaX$ 7A CONTAINS REGISTER ADDRESS 
9284 3: - - - HENCE X$ WILL HAVE ABSOLUTE REG. ADR. 
9285 ~ > - 1 
9286 .* > * = 
9287 3 WAT 
9288 :*x$: 360 ABSOLUTE REG. ADDRESS UNDER WAIT 
9289 3e -WORD 0 ;B1T WAITED FOR 
9290 th ; CONTINUE 


am 


ct ss ls is ES ee etn, eae tye Aleta ose eee 
CIRIGDO.RPOS/5/6 DSKLS CIRLAT MACYIT SOA(1O52) 10=SEP=79_ 11:11 PAGE 213 | 
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CZRJGD.P 10-SEP-79 11:00 CHECK DISK STATUS ROUTINES SEQ 0212 

9292 

434, .SBTTL SAVE ROUTINE 

9295 :*THIS IS A SUBROUTINE TO SAVE REGISTERS 

9296 >*IN THE REGISTER TABLE TO ANY LOCATION 

9297 s*THE CALL IS 

9298 :*JSR RO, a#SAVER | 

9299 :*FROM 

9300 :*10 

9301 :*NUMBER OF WORDS SAVED 

9302 

9303 043424 SAVER: 

9304 043424 010146 MOV R1,-(SP) ::PUSH R1 ON STACK 

9305 043426 010246 MOV R2,-(SP) 7;PUSH R2 ON STACK 

9306 043430 010346 MOV R3,-(SP) ::PUSH R3 ON STACK 

9307 043432 012001 MOV (RO)+,R1 :FRO 

9308 043434 012002 MOV (RO)+,R2 ;10 

9309 043436 012003 MOV (RO)+,R3 : NUMBER 

9310 043440 013122 1$: MOV a(R1)+, (R2)4 SAVE REGISTER CONTENTS 

9311 043442 005303 DEC R3 : COUNT 

9312 043444 001375 BNE 1$ :BRANCH IF NOT DONE 

9313 043446 012603 MOV (SP)+,R3 :;POP STACK INTO R3 

9314 043450 012602 MOV (SP)+,R2 ::POP STACK INTO R2 

9315 043452 012601 MOV (SP)+,R1 :;POP STACK INTO R1 

9316 043454 000200 RTS RO 

9317 

9318 

9319 

9320 

tis .SBTTL WRITE CHECK ROUTINE 

9323 :*THIS 1S A SUBROUTINE TO DO WRITE CHECK HEADER AND DATA 

aise :*CYLINDER 0, TRACK 1, SECTOR 1, KEYS 0 

9326 :*THESE ARE TO SET UP FOR DISKLESS USE ONLY 

9327 043456 012737 010000 047616 WRCHHD: MOV #EMT22,Q8CYL CYLINDER 0 FORMAT 16 BIT WORDS 

9328 043464 112737 000001 047621 MOVB #1,aMSECOTR+1 ;TRACK=1 

9329 043472 112737 000001 047620 MOVB #1,a#SECOTR :SECTOR=1 

9330 043500 005037 047622 CLR aaKEYi :KEY1=0 

9331 043504 005037 047624 CLR aaKEY2 sKEY?2=0 

9332 043510 012737 000044 047676 MOV #36.,DAWORD ;NO OF DATA WORDS 

9333 043516 005037 047626 CLR aax :THIS IS A READ OPERATION | 

9334 043522 004537 044140 JSR R5,aaCRC :GO TO CALCULATE CRC 

9335 043526 047616 CYL 

ts 043530 051516 wCRC 

9338 :*7THESE ARE REGULAR SETUPS 
| 

9340 043532 004737 042732 JSR PC ,a#CLDISK SET UP GENERAL REGISTERS 

9341 :AND CLEAR DISK REGISTERS 

9342 043536 012777 177730 136066 MOV #-40, ,aRHWC :36 DATA WORDS 4 HEADER WORDS 

9343 043544 012777 003160 136062 MOV #WREINTO,@RHBA  ;STARTING ADDRESS OF READ BUFFER 

9344 043552 112746 000001 MOVB #1,-(SP) :SECTOR=1 

9345 043556 112766 000001 000001 MOVB #1,1°SP) : TRACK=1 IN UPPER BYTE 

9346 043564 012677 136054 MOV (SP)+,@RHDST sTRACK=1, SECTOR=1 IN RHDST 

9347 043570 012777 014000 136052 MOV #MFMT22'ECIL,@RHOF ;16 BIT WORDS 
| 
| 
} 


a 
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043576 
043602 
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043612 
043614 


043620 


043624 


005077 
004737 
104401 


000000 
013711 


004737 


000207 
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136050 
042756 
062562 
062062 


047456 
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WRITE CHECK ROUTINE 


@RHCA 
PC ,a#CHECKT 
,CPHALT 


@#WRCHDT ARI 
PC ,a#COMHD 


PC 


G 1 
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sECC CORRECTION INHIBIT BECAUSE 
sECC LOGIC IS NOT CHECKED YET 

; CYLINDER=0 

;CHECK THAT DVA,RDY,DPR,DRY = 1 
;AND THAT NO OTHERS = 1. CANNOT CON- 
s TINUE TESTING IF BOTH AREN'T TRUE 
;STOP THE TEST 

sWRITE CHECK HEADER AND DATA=52 

> INTO RHCS1 

sWRITE CHECK HEADER AND DATA 

>SAME AS READ HEADER AND DATA 


RETURN TO WRITE CHECK TEST 


SEQ 0213 


——~ 
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043626 


043672 
043674 


043762 
043764 
043766 
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001426 
014137 


001344 
012605 


012601 
000200 


001176 
001200 


047736 


001124 
001126 
047736 
002000 


135254 
135250 
135202 


177177 
000200 


4 1 
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WRITE CHECK ROUTINE SEQ 0214 
-SBTTL COMPARE ROUTINE 
:*THIS 1S A SUBROUTINE TO COMPARE TWO BLOCKS IN MEMORY 
>*R1 HAS GOOD DATA BUFFER ADDRESS 
s*R2 HAS TEST DATA BUFFER ADDRESS 
3*$TMPO HAS ADDRESS OF RETURN ON ERROR TO PRINT HEADER 
;*$TMP1 HAS ADDRESS OF RETURN ON ERROR TO PRINT DATA 
3*R3 HAS NUMBER OF WORDS TO BE COMPARED 
>*RG HAS ONE MORE THAN NUMBER OF WORDS TO BE COMPARED 
COMPAR: 
MOV R1,-(SP) > ;PUSH R1 ON STACK 
MOV R2,-(SP) >:PUSH R2 ON STACK 
MOV R3,-(SP) 3;PUSH R3 ON STACK 
MOV R4,-(SP) ::PUSH R4& ON STACK 
MOV R5,-(SP) ;;PUSH R5 ON STACK 
MOV (RO)+,R1 ;ADDRESS OF GOOD DATA BUFFER 
MOV (RO)+,R2 s ADDRESS OF TEST DATA BUFFER 
MOV (RO)+,R3 NO OF WORDS TO BE COMPARED 
MOV (RO)+,STMPO s;RETURN ON ERROR TO PRINT HEADER 
MOV (RO)+,$TMP1 :RETURN ON ERROR TO PRINT DATA 
MOV (RO) ,RO sRETURN ON NO ERROR 
car to :NO OF WORDS TO BE COMPARED 
N 4 
1$ MOV R4,a#ERWORD sFOR ERROR WORD NO 
CMP (R1)+,(R2)¢ ;COMPARE GOOD WITH TEST DATA 
BEQ 3$ >BRANCH IF GOOD 
MOV -(R1),@#$GDDAT ;GOOD DATA 
MOV -(R2),a#$BDDAT ;BAD DATA 
SUB R3,a#ERWORD s;ERROR WORD NO. 
TST a#ERFLGS sANY ERRORS ALREAY THERE 
BNE 2$ ;BRANCH IF YES 
JSR PC,aSTMPO ;RETURN TO PRINT HEADER 
BR 5$ sBRANCH TO AVOID PRINTING NEXT ERROR 
2$: JSR PC, aSTMP1 sRETURN TO PRINT DATA 
5$: CMP (R1)+#,(R2)+ ;UNDO -(R1) AND -(R2) FOR ERRORS 
MOV aSwR,-(SP) sGET SWITCH SETTING 
BIC #*C600, (SP) ;KEEP ONLY SWITCH 7 AND 8 
CMP #SWO7,(SP)+ 31S 7? SET AND 8 RESET 
BEQ 4% ;BRANCH OUT IF YES 
3$: DEC R3 > COUNT 
. BNE 1$ ;BRANCH IF ALL NOT DEVICE 
4$: 
MOV (SP)+,R5 :;POP STACK INTO R5 Pe 
MOV (SP)+#,R4 3;POP STACK INTO R4& . 
MOV (SP)+,R3 :;POP STACK INTO R3 ; a 
MOV (SP)+*,R2 :;POP STACK INTO R2 
MOV (SP)+,R1 ;;POP STACK INTO R1 
RTS RO ;RETURN TG MAIN PROGRAM 


= 
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9425 043770 
9426 043776 


9431 044030 


9433 044034 
9434 044040 
9435 044042 


9439 044044 


9442 044050 
9443 044056 
9444 044064 
9445 044070 
9446 044076 
9447 044102 


9450 044110 
9451 044114 
9452 044120 


9454 044124 


9455 044126 
9456 044132 


044136 
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047616 


005077 
004737 
104401 


000000 


013711 
004737 


000207 


:00 


010000 
000001 


047626 
044140 


042732 


177740 
003160 
000001 
000001 
135542 
014000 


135536 
042766 
062562 


002060 
047456 


MACY11 30A(1052) 
COMPARE ROUTINE 


047621 
047620 


047676 


135554 
135550 


000001 
135540 








1 1 
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SEQ 0215 


:*THIS 1S A SUBROUTINE TO DO WRITE gy DATA 


:*CYLINDER 0, 


TRACK 1, SECTOR 1, KEYS 


;* THESE ARE TO SET UP FOR DISKLESS USE ONLY 
047616 WRCHDA: MOV 


st THESE 
JSR 


WFMT22 ,ANCYL 
#1 ,A#SECOTR+1 
#1, Q#SECOTR 
avKEYl 

aaKEY2 

4a , @#DAWORD 


R5,aa#CRC 


{top 0 FORMAT 16 BIT WORDS 


;KEY2=0 
3NO OF DATA WORDS 
;THIS IS A READ OPERATION 


;GO TO CALCULATE CRC 


ARE REGULAR SETUPS 


PC,a#CLDISK 


#-32. ,aRHWC 
#REINTO,@RHBA 
#1,-(SP) 
#1,1¢SP) 
(SP)+,@RHDST 
WFEMT22!EC1,@RHOF 


@RHCA 
PC ,a#CHECKT 
CPHALT 


Oa#WRCHEK ARI 
PC ,a#COMHD 


PC 


;SET UP GENERAL REGISTERS 
AND CLEAR DISK REGISTERS 


336 DATA WORDS 4 HEADER WORDS 
;STARTING ADDRESS OF READ BUFFER 
> SECTOR=1 

;TRACK=1 IN UPPER BYTE 

;TRACK=1, SECTOR=1 IN RHDST 


316 BIT WORDS 


sECC CORRECTION INHIBIT BECAUSE 

;ECC LOGIC IS NOT CHECKED YET 
;CYLINDER=0 

:CHECK THAT DVA,RDY,DPR,DRY = 1 

;AND THAT NO OTHERS = 1. CANNOT CON- 
; TINUE TESTING IF BOTH AREN'T TRUE 
;STOP THE TEST 

WRITE CHECK DATA=50 INTO RHCS1 
;WRITE CHECK HEADER AND DATA 

;SAME AS READ HEADER AND DATA 


;RETURN TO WRITE CHECK TEST 


nn i i oe ee os. 


CZRJGDO,RPO4/5/6 DSKLS sips 
C2RIGD.P11 1:00 


044140 
044140 
044142 
044144 
044146 
044150 
044152 
044154 
044156 
044162 
044170 
044174 
044202 
044210 
044214 
044220 
044224 
044226 
044232 
044234 
044236 


044242 
044246 
044250 
044254 
044256 


10-SEP-79 1 


063705 
032701 


005002 


001210 


000001 
100000 


001210 
040000 
100000 


MACY11 30A(1052) 


001176 


001202 
001206 


J] 
10-SEP-79 11:11 PAGE 217 


COMPARE ROUTINE 


CRC: 


3$: 


~ SBTTL 


CRC GENERATION ROUTINE 


;*THIS 1S A SUBROUTINE TO CALCULATE CRC FOR THE FOUR 
;*HEADER WORDS AND STORE THEM IN ‘'WCRC"’ AND ‘'GCRC"’ 

;*R1 = REGISTER FOR CRC, INCREMENTED CRC VALUE IS HERE 
;*R2 = THIS HAS BIT POSITION 2 VALUE C 

;*R3 -- THIS HAS BIT POSITION 16 1.£. OUTPUT BIT VALUE B 
;*R4 = THIS HAS BIT POSITION 15 VALUE E 


7 *STMPO - NUMBER OF WORDS 

7*STMP2 - NUMBER OF BITS PER WORD = 16 
:*STMP3 = TEMPORARY REG. 

>*STMPG - TEMPORARY REG TO TRANSFER CARRY 
s*STMP5S - THIS HAS DATA BIT VALUE D 

; FETCH DATA BIT D 

7*B = D XOR 16 

7*C = B XOR 2 

3*—E = B XOR 15 


: *ROTATE RIGHT ONE oe 
;*B GOES TO POSITION 1 

:*C GOES TO POSITION 3 

;*E GOES TO POSITION 16 


> *REPET 
> *CALL 
3*KX 
Be 


64 TIMES 

JSR R5,a#CRC 

FIRST LOCATION AT 

;PUT CRC IN WCRC FOR READ GCRC FOR WRITE 


RO,-(SP) ;;PUSH RO ON STACK 

(R5)+,RO ;GET POINTER TO CYL NO. 

R1,-(SP) ;:PUSH R1 ON STACK 

R2,-(SP) >:PUSH R2 ON STACK 

R3,-(SP) ;;PUSH R3 ON STACK 

R4,-(SP) 3;PUSH R4 ON STACK 

R1 ;CLEAR WORKING LOCATION 

aaSTMPs 

#4 ,a#STMPO WORD COUNT 

(RO)+,aM#$TMPS  ; TEMPORARY WORD STORAGE 

#16. ,STMP2 ;B11 COUNT 

Q#STMP3,a#STMP4 ; TEMPORARY te STORAGE 

aeSTMPs :GET LSB IN 

aeSTMPs GET ABOVE ne * INTO $STMP5 

#B1T0,R1 :1S POSITION 15 HIGH 

1$ BRANCH IF POSITION 16 | OW 

fal ae ;GET POSITION 16 

R3 ;GET POSITION 16 

a#STMPS,RS :XOR POSITION 16 WITH D 
TO GIVE B 

#B1T14,R1 :1$ POSITION 2 HIGH 

3% :BRANCH IF POSITION 2 LOW 

+ hiatabis [GET POSITION 2 

4 


R2 3GET POSITION 2 


SEQ a 


CZRIGDO,RPO4/5/6 DSKLS aa 
CZRJGD.P11 11:00 


044260 
044262 


044300 
044302 


044412 


044414 
044414 
044416 
044420 
044422 


10-SEP-79 


060302 


032701 
001403 
012704 
000401 
005004 
060304 


006037 


000205 


000002 
100000 


001206 


100000 
100000 


020000 
020000 


000001 


000001 
001202 


001176 


177400 


MACY11 30A(1052) 


4%: 


5$: 
6$: 


SETDSK: 


10-SEP-79 11:11 
CRC GENERATION ROUTINE 


:*THIS 1S A SUBROUTINE TO SET UP THE SIMULATOR DISK FOR 


R3,R2 
#B1T1,R1 
5$ 
#B1T15,R4 
6$ 

RG 

R3,R4 
aaSTMP4 
RI 

R3 

7$ 
#B1T15,R1 
10% 


#B1115,R1 
R2 

11$ 
#B1113,R1 
12% 
#B1113,R1 
RG 

13$ 
#B1T0,R1 
14% 
#B1T0,R1 
aaSTMP2 


15$ 
haa 


16 
R1,a(R5)+ 
(SP)+,R4 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO0 
RS 


q 


K 1 
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:XOR B WITH POSITION 2 

;10 GIVE C 

31S POSITION 15 HIGH 
;BRANCH IF POSITION 15 LOW 
3GET POSITION 15 


;GET POSITION 15 

;XOR POSITION 15 WITH B 
:T0 GIVE E 

;GET LSB INTO *'C’’ 

;GET ABOVE C INTO R1 
;TEST B 


hi 
;BRANCH IF B=1 
;SET B IN POSITION 1 


;SET B IN POSITION 1 
ves? € 


;BRANCH IF C=1 
3GET C IN POSITION 3 


:GET C IN POSITION 3 
sTEST E 

;BRANCH IF E=1 

:GET E IN POSITION 16 


:GET E IN POSITION 16 
3B11 COUNTER 

;BRANCH IF 16 NOT DONE 
;WORD COUNTER 

;BRANCH IF 4 NOT DONE 
;PUT CRC WHERE DESIRED 
3:POP STACK INTO R4 
::POP STACK INTO R3 
::POP STACK INTO R2 
>:POP STACK INTO R1 
:;POP STACK INTO RO 


s*CYLINDER 0 (16 BITS PER WORD) 


:* TRACK 
s*KEY1 1 
s*KEY2 1 


1, SECTOR 1 


>*CRC THROUGH THE JSR R5,aMCRC 
:*256 WORDS OF 177400 


JSR PC ,a#SETDSK 


> *CALi 


RO,-(SP) 


) 
#177400,R0 


::PUSH RO ON STACK 
>:PUSH R1 ON STACK 
3:PUSH R2 ON STACK 
sDATA IN THE DISK 


SEQ 0217 


CZRIGDO,RPO4/5/6 DSKLS CTRLRI 
10-SEP-79 11:00 


CZRIGD.P11 


044426 


044444 
044450 


044452 
044454 


044456 


044540 


012701 


012701 
005022 


000207 


000400 
051534 


000021 


010000 


MACY11 30A(1052) 


047616 


047676 


1$: 


23: 


10-SEP-79 11:11 
CRC GENERATION ROUTINE 

MOV #256.,R1 
MOV #DISK,R2 
MOV RO, (R2)¢ 
DEC Rt 
BNE 1$ 
MOV #17.,R1 
CLR (R2)+ 
DEC R1 
BNE 23 
MOV #FMT22 ,aeCYL 
MOVB #1, a#SECOTR+1 
MOVB #1,a#SECOTR 
MOV #1 ,aa#KEY) 
MOV #1,aMKEY2 
MQV 256. ,a#DAWORD 
JSR R5,a#CRC 
CYL 
WCRC 
MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP)+,R0 
RTS PC 


L 
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; START OF + crates DISK 
;MOVE IN 

;COUNT FOR 

:BRANCH IF 256 NOT COMPLETE 
2 ECC WORDS, 1 DATA G 

14 TOLERANCE GAP 

CLEAR ECC,DATA GAP AND 
TOLERANCE GAP 


BRANCH IF NOT COMPLETE 


>*NOW SET UP FOR DISKLESS USE 


CYLINDER 0 (16 BIT WORDS) 


+ SAM Ott 
: SEQ 0218 
: COUNTER 

IN DAT 

Moe 

: é AP 
‘COUNT 
> TRACK=1 
> SECTOR=1 
sKEY1=1 
SKEY2=1 
:NO. OF DATA WORDS 
:GO0 TO CALCULATE CRC 
sFIRST CRC WORD 
=PUT CALCULATED CRC 
::POP STACK INTO R2 
::POP STACK INTO R1 
::POP STACK INTO RO 


aN 


CZRJGDO,RPO4/5/6 DSKLS Behe 


CZRIGD.P11 


044542 


044626 
044632 


044636 


044644 
044650 


044654 
044660 
044664 
044666 
044672 


10-SEP-79 11 


010037 
162737 
004737 
004737 
104401 


000000 


012777 


005037 
004737 


004737 
005737 


001015 


002014 


062562 


001210 
135046 


000001 


135022 
135004 


135002 
047626 


014000 


002006 
047456 


042336 
002006 


047626 


MACY11 30A(1052) 


002014 


135004 


A 1 
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CRC GENERATION ROUTINE 


HCCRCE: 


:*THIS 1S A SUBROUTINE TO CHECK HEADER COMPARE ERROR 
;*(BIT #7) AND CRC ERROR (BI? #8) 


s*CALL JSR RO,@MHCCRCE 


:* COM ; COMMAND ~ te vy Ay AND DATA 

7* C “CYLINDER 

;* $ = SECTOR 

;* T TRACK 

;¢ “N. ;WORD COUNT 

7* B ;RHBA BUFFER START 

;* x 7 1=WRITE DATA O=READ 

3* H ;H=1 HEADER CHECK, H=0 CRC CHECK 


MOV RO,a#PCJSR SAVE PC OF JSR+4 


SUB #4 ,a#PCJUSR GET PC OF JSR 
JSR PC ,a#CLDISK : INIT AND SETUP GENERAL REG. 
JSR PC ,@#CHECKT s;CHECK THAT DVA,RDY.DPR.DRY = 1 


TYPE ,CPHALT ;AND THAT NO OTHERS = 1. CANNOT CON- 


; TINUE TESTING IF BOTH AREN'T TRUE 


HALT :STOP THE TEST 

MOV (RO) ,a#$TMP5 SAVE COMMAND 

MOV (RO)+,aR1 ; COMMAND 

MOV (RO)+,@RHCA CYLINDER 

MOVB (RO)+,=-(SP) ; SECTOR 

TSTB (RO)+ a4 DATE RO 

MOVB (RO)+,1(SP) TRACK 

TSTB (RO)+ SUPDATE RO 

MOV (SP)+,@RHDST ; TRACK SECTOR 

MOV (RO) + ,@RHWC :NO. OF DATA WORDS +4 HEADER 
:1F A READ HEADER AND DATA 

MOV (RO)+,@RHBA STARTING ADDRESS OF BUFFER 

MOV (RO)+ ,aax eK OQ READ HEADER AND DATA 


X=1 WRITE DATA 
MOV WFMT22'EC1,@RHOF ;16 BITS PER WORD 
ECC phen INHIBIT 
CLR a#ERFLGS :CLEAR ERROR FLAG 
JSR PC ,a#COMHD : COMMAND 


;t1F THE PROGRAM COMES BACK HERE WITHOUT ERROR PRINTOUTS 
;*FROM THE "‘COMHD’’ ROUTINE THAT MEANS SECTOR GAP, 
s*FIRST SYNC, HEADER, HEADER CRC, HEADER GAP AND 

>*SYNC BYTE HAVE GONE BY AND SYNCS WERE CORRECTLY 

> *DETECTED 

;*HEADER AND DATA ARE TO BE CHECKED. 


JSR PC ,a#PUTREG SAVE REGISTERS 
TST a#ERFLGS ANY ERRORS ALREADY THERE 


BNE 10% ;BRANCH IF YES 
TST aax 31S THIS A READ 
BNE 3$ :1F A WRITE DATA BRANCH 


SEQ 0219 


CZRJGDO,RPOG/5/6 DSKLS ete 
CZRIGD.P11 1:00 


044674 


044720 


044722 
044724 


044726 


044752 


044754 


045000 


045006 
045010 


10-SEP-79 1 


004037 
002114 


104005 


000207 
000414 


004037 
003160 


104005 
000207 


022737 


001470 
013737 


043626 


043626 


000072 


134644 
000200 


001642 


MACY11 30A(1052) 


001210 


001126 
001126 


042402 


1$: 
2$: 


4$: 
5$: 


10$: 


nN 1 
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CRC GENERATION ROUTINE 


;*NOW THE READ BUFFER WILL BE CHECKED 

> *HEADER SHOULD BE COMPLETELY READ AS WRITTEN 

;>*NO DATA WORDS SHOULD BE READ 

;*REINTO BUFFER HAS BEEN FILLED WITH 0 

;*WRFROM BUFFER HAS BEEN FILLED WITH EXPECTED DATA 


JSR 
WRF ROM 


RTS 
BR 


RO, a#COMPAR 


PC 
10$ 


; CHECK 

3GOOD DATA 

;TEST BUFFER 

74 HEADER 252 DATA 

sRETURN POINT FOR ERROR HEADER 
sRETURN POINT FOR ERROR DATA 
;RETURN FOR GOOD COMPARISON 
sREAD NEXT ERROR 5 

sRETURN TO COMPARISON SUBROUTINE 
7WORD NO 1 THRU 4 ARE 

;HEADER WORDS AND HENCE 
;SHOULD BE READ AS WRITTEN ON 
;DISK, WORD NOS. 5 ONWARDS 
;SHOULD NOT BE READ AND HENCE 
sREAD INTO BUFFER 

; SHOULD BE UNCHANGED 

;RETURN TO COMPARISON 


; JUMP OUT 


;*NOW THE DISK WILL BE CHECKED 

;*NO DATA SHOULD BE WRITTEN 

;*REINTO BUFFER HAS BEEN FILLED WITH EXPECTED DATA 
;*DISK HAS BEEN FILLED WITH 177400 

;*WRFROM HAS BEEN FILLED WITH 125252 


JSR 
RE INTO 


RO ,a#COMPAR 


wv 
Oo 


5 7 


PC 
(RO) + 


6$ 
#72,a#STMPS 
11$ 


ORHER1 ,a#$BDDAT 
WHCE ,a#SBDDAT 


; CHECK 
;GOOD DATA BUFFER 
; TEST BUFFER 


;RETURN POINT FOR ERROR HEADER 
;RETURN POINT FOR ERROR DATA 
;RETURN POINT FOR GOOD COMPARISON 
;READ NEXT ERROR 5 

;RETURN TO COMPARISON SUBROUTINE 
;WORD NO ARE ALL DATA 

;WORDS THE SHOULD NOT 

;HAVE BEEN CHANGED BY THE 

WRITE COMMAND 

; RETURN TO COMPARISON SUBROUTINE 


71S THIS A HCRC ON HCE CHECK? 
BRANCH IF HCRC 

:1S THIS A READ COMMAND 
:BRANCH IF YES 


:TEST DATA 
;ONLY HEADER COMPARE BIT? 
: SHOULD BE SET 


F GOOD 


7$ ;BRANCH | 
Q#RHER] ,AMREGADR ; REGISTER ADDRESS RHER1 


SEQ 0220 





. 8 
pow: “1 Ng * DSKLS CTRLR1 = MACYT1 30A(1052) 10-SEP-79 11:11 PAGE 222 ¢ 
CZRIGD.P 10-SEP-79 11:00 CRC GENERATION ROUTINE SEQ 0221 C 
9768 045016 rarest 000200 001124 MOV WHCE,@#SGDDAT ;GOOD DATA 
9709 045024 104027 ERROR 27 ;AFTER AN ERROR ON THE 
9710 ;HEADER ONLY HCE SHOULD 
9711 045026 000460 BR 7$ ;BE SET 
9712 045030 118: 
97135 045030 017737 134606 001126 MOV @RHER1 ,a#SBDDAT ; TEST DATA 
9714 045036 022737 100200 001126 CMP WOCK!HCE ,@#SBDDAT ;ONLY HEADER COMPARE BIT? 
9715 ; SHOULD BE SET 
9716 :DCK IS SET BECAUSE ECC IS NOT READ 
9717 045044 001451 BEQ 7$ :BRANCH IF GO 
9718 045046 013737 001642 042402 MOV @#RHER1 ,AMREGADR ; REGISTER ADDRESS RHERI 
9719 045054 012737 100200 001124 MOV #OCK!HCE,a#$GDDAT. ;GOOD DATA 
9720 045062 104027 ERROR 27 ;AFTER AN ERROR ON THE 
9721 :HEADER ONLY HCE SHOULD 
9722 045064 000441 BR 7$ ;BE SET 
9723 045066 022737 000072 001210 6%: CMP #72 ,Q#STMPS ;1S THIS A READ COMMAND? 
9724 045074 001417 BEQ 12% ;BRANCH IF A READ 
9725 045076 017737 134540 001126 MOV @RHER1 ,A#SBDDAT ; TEST DATA 
9726 045104 022737 000400 001126 CMP WHCRC,@#SBDDAT ONLY CRC ERROR SHOULD BE THERE 
9727 045112 001426 BEQ 7$ 
9728 045114 013737 001642 042402 MOV Q@MRHER1|,Q#REGADR ;REG. ot es RHER1 
9729 045122 012737 000400 001124 MOV WHCRC,@#SGDDAT ;GOOD DATA 
9730 045130 104027 ERROR 27 ;AFTER A CRC ERROR ONLY CRC 
9731 J mene BE SET 
9732 045132 000416 BR 7$ :BRANCH OUT 
eS, 045134 017737 134502 001126 128: MOV @RHER1,Q#$BDDAT ; TEST DATA 
9735 045142 022737 100400 001126 CMP WOCK!HCRC,@#S$BDDAT;HCRC AND DCK SHOULD BE SET 
9736 ;DCK IS SET BECAUSE ECC IS NOT READ 
9737 045150 001407 BEQ 7$ ;BRANCH IF GOOD 
9738 045152 012737 100400 001124 MOV #DCK'HCRC,a@#SGDDAT;GOOD DATA 
9739 045160 013737 001642 042402 MOV A#RHER| ,AWREGADR; FAILING REGISTER RHER1 
9740 045166 104027 ERROR 27 ZAFTER A CRC ERROR ON A READ 
9741 ;DCK AND HCRC SHOULD BE SET 
9742 ;DCK IS SET BECAUSE ECC IS NOT READ 
si gy 045170 000200 7$: RTS RO RETURN TO MAIN TEST 
9744 
9745 
9746 
9747 :*THIS IS A SUBROUTINE TO LEAVE AT THE MIDDLE OF 
9748 ;*A WRITE HEADER AND DATA COMMAND 
9749 :*1T TRYS TO GET SECTOR 10, TRACK 0, CYLINDER 0 
9750 ;*BUT COMES OUT AFTER ONE SECTOR 
9751 ;*THE COMMAND OS JSR PC,@#MIDDLE 
9752 :*BAl IS SET 
9753 
9754 045172 MIDDLE: 
9755 045172 010046 MOV RO,-(SP) ++ PUSH RO ON are 
9756 045174 010146 MOV R1,-(SP) ;PUSH R1 ON STA 
4e4 | 045176 013777 002066 134434 MOV Q#WRIFOR,ARHCS1 ; Means AND DATA=62 
9 H 
9759 045204 012777 177766 134420 MOV #-10. ,aRHWC 310 WwW 
9760 045212 012777 002114 134414 MOV WWRFROM,ARHBA =; BUS  ADDRESS=WRF ROM 
9761 045220 012777 000010 134416 MOV #10, aRHDST ;DESIRED TRACK=0 SECTOR=10 
9762 045226 052777 000010 134402 BIS #BA] ,ARHCS2 ;BUS ADDRESS INCREMENT INHIBIT 
9763 045234 012777 010000 134406 MOV #FMT22,QRHOF ;FORMAT 16 BIT WORDS 


C 2 
CZRJGDO,RPOG/5/6 DSKLS CTRLR1 MACY11 30A(1052) 10-SEP-79 11:11 PAGE 223 


CZRJGD.P11 10-SEP-79 11:00 CRC GENERATION ROUTINE SEQ 0222 
9764 045242 005077 134404 CLR @RHCA > CYLINDER=0 
9765 045246 012737 000001 045274 MOV #1,a#M1D ;SECTOR IS SET TO 1 SO THAT 
9766 ;WE CAN GET OUT AT THE 
9767 :MIDDLE OF AN OPERATION 
9768 ;LOOKING FOR SECTOR 10 
9769 045254 012777 000001 134376 MOV #DMD ,ARHMR ;SET DIAGNOSTIC MODE 
9770 045262 052777 000001 134350 BIS #G0,aRHCS1 :G0 TO RHCS1 WITH 62 
9771 045270 004137 053664 JSR R1,a#SEARCH 
9772 045274 000000 MID: -WORD 0 SECTOR 
9773 045276 012601 MOV (SP)+,R1 ::POP STACK INTO Ri 
9774 045300 012600 MOV (SP)+,RO 3:;POP STACK INTO RO 
9775 045302 000207 RTS PC 
9776 
9777 
9778 
9779 -SBTTL JAM CURRENT CYLINDER ROUTINE 
3781 
9782 3*THIS SUBROUTINE WILL CHANGE THE CURRENT CYLINDER REGISTER 
9783 :*THIS IS DONE BY GIVING A SEEK COMMAND THEN AN INIT 
4h iiss WILL LOAD THE CURRENT CYLINDER WITH THE DESIRED CYLINDER VALUE 
9786 S eCALL IS 
9787 7*JSR  RO,@#MAKECYL 
9788 = *XC ;DESIRED VALUE OF CURRENT CYLINDER 
9789 
9790 
9791 045304 MAKECYL: 
9792 045304 010546 MOV R5,-(SP) ::PUSH RS ON STACK 
9793 045306 010037 002014 MOV RO, a#PCJSR sPC OF JSR+4 
9794 045312 162737 000004 002014 SUB #4 ,a#PCUSR ;SAVE PC OF JSR 
9795 045320 012005 MOV (RO) +,R5 sGETTING READY TO FILL DESIRED CYLINDER 
9796 045322 010577 134324 MOV R5,@RHCA sFILL DESIRED CYLINDER REGISTER 
9797 045326 005077 134312 CLR @RHDST sMAKE SURE DESIRED SECTOR TRACK IS NOT ILLEGAL 
9798 045332 013777 002074 134300 MOV O#SEECOM,ARHCS1] ;FILL SEEK COMMAND 
9799 045340 012777 000001 134312 MOV #DMD ,ARHMR ;SET DIAGNOSTIC MODE 
9800 045346 052777 000001 134264 BIS #G0,aRHCS1 :G0 TO SEEK 
9801 045354 000240 NOP s;ALLOW TIME FOR SEEK TO HANG UP 
9802 045356 000240 NOP s;ALLOW TIME FOR SEEK TO HANG UP 
9803 045360 000240 NOP s;ALLOW TIME FOR SEEK TO HANG UP 
9804 045362 000240 NOP sALLOW TIME FOR SEEK TO HANG UP 
9805 045364 004737 042732 JSR PC ,a#CLDISK sGIVE INIT 
9806 045370 017737 134302 001126 MOV QRHCC,a#$BDDAT ;TEST DATA 
9807 045376 020537 001126 CMP R5,a#$BDDAT ; COMPARE CURRENT CYLINDER 
9808 045402 001406 BEQ 1$ ;BRANCH IF GOOD 
9809 045404 010537 001124 MOV R5,a#$GDDAT ;GOOD VALUE OF RHCC 
9810 045410 013737 001676 042402 MOV Q#RHCC,Q#REGADR ;FAILING REGISTER ADDRESS 
9811 045416 104030 ERROR 30 :CURRENT CYLINDER DOES NOT MATCH DESIRED CYLINDER 
9812 sREGISTER AFTER A SEEK AND AN INIT 
9813 045420 1$: 
9814 045420 012605 MOV (SP)+,R5 ;;POP STACK INTO R5 
9815 045422 000200 RTS RO 
9816 
9817 
9818 .SBITL ECC GENERATION AND COMPARISON ROUTINE 


any 


CZRJGDO,RPO4/5/6 DSKLS ote? 
10-SEP-79 11:00 


CZRIGD.P11 


045424 


045426 


045430 


045432 


100000 


000002 
000001 


000000 


000000 


000000 


000000 


MACY11 30A(1052) 


dD 2 
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ECC GENERATION AND COMPARISON ROUTINE 


:*THIS SUBROUTINE GENERATES AND TESTS ECC 


3 *CALL 


PIE1 =100000 

PIE2 =40000 

PIES =20000 

PIES =10000 

PIES =4000 

PIE6 =2000 

PIE? =1000 

PIE8 =400 

PIE9 =200 

PIE1O =100 

PIE11 =40 

PIE12 =20 

PIE13 =10 

PIEI4 =4 

PIEI5 =2 

PIEI6 = =1 

PIE17 =100000 

PIE18 =40000 

PIE19 =20000 

PIE20 =10000 

PIE21 =4000 

PIE22 =2000 

PIE23 =1000 

PIE24 =400 

PIE25  =200 

PIE26 =100 

PIE27 =40 

PIE28 =20 

PIE29 =10 

PIE30 8 =4 

PIE31 =2 

PIE32 == 1 

ECDATA: 0 ;DATA BIT FOR ECC 
;1f ALL ONES THEN CURRENT BIT IS A ONE 
;1F ZERO THEN CURRENT BIT IS A ZERO 

GECC1: 0 a4) ORDER ECC WORD TO BE GENERATED HERE 

GECC2: 0 whe ORDER ECC WORD TO BE GENERATED HERE 

TSECCG: 0 s1F =177777 GENERATE AND TEST ECC FOR THIS BIT 
:1f =0 DO NOT GENERATE AND TEST ECC FOR THIS BIT 


JSR PC,ECTEST 


SEQ 0223 


CZRJGDO,RPO4/5/6 DSKLS aie 


CZRJGD.P11 10-SEP-79 1 
9876 045434 113713 
9877 045436 000000 
9878 045440 000000 
9879 045442 010041 
9880 
9881 
9882 045444 000000 
9883 
9884 
9885 045446 000000 
9886 
9887 
9888 
9889 
9890 
9891 
9892 045450 000000 
9893 045452 000000 
9894 045454 000000 
9895 045456 000000 
9896 045460 000000 
9897 
9898 
9899 
9900 
9901 
9902 045462 
9903 045462 010046 
9904 045464 010146 
9905 045466 010246 
9906 045470 010346 
9907 045472 010446 
9908 045474 010546 
9909 045476 013701 
9910 045502 013702 
9911 045506 005737 
9912 045512 001406 
9913 
9914 
9915 
9916 
9917 045514 010103 
9918 045516 052703 
9919 045522 005103 
9920 045524 010300 
9921 045526 000404 
9922 
9925 
9924 
9925 045530 010103 
9926 045532 042703 
9927 045536 010300 
9928 
9929 045540 000241 
9930 045542 006000 
9931 045544 006000 


045426 
045430 
045424 


177776 


177776 


MACY11 30A(1052) 


NCODE: 38859. 
NCOUNT: 0 
POSITI: 0 
HARDER: 4129. 
DATENV: 0 
ZCODE: 0 
HADTMP: 0 
P3: 0 
Pl2: 0 
P22: 0 
P24: 0 
ECTEST: 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TST 
BEQ 
1$: MOV 
. BIS 
COM 
MOV 
ER 
2$: MOV 
BIC 
MOV 
3$: CLC 
ROR 
ROR 


E 2 
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ECC GENERATION AND COMPARISON ROUTINE 


;N-CODE WORD 

; TEMPORARY N CODE 

POSITION REGISTER 

;HARD ERROR COUNT 

;TRUE COUNT IS 4128 BUT AS COMPARES ARE 
;DONE ONE STAGE LATER SO 4129 

;DATA ENVELOPE FOR TYPE OUT 

;MAX FOR WRITE IS 4096 

;MAX FOR READ IS 4128 

;LEADING ZEROS ENVELOPE FOR TYPE OUT 

; THIS 1S SHUT OFF WHEN POSITION COUNTER 
; IN ENABLED 

;MAX COUNT IS 38859 


; TEMPORARY HARD ERROR COUNT 


RO,-(SP) ;;PUSH RO ON STACK 

R1,-(SP) ;;PUSH R1 ON STACK 

R2,-(SP) 3;PUSH R2 ON STACK 

R3,-(SP) 3;PUSH R3 ON STACK 

R4,-(SP) ;;PUSH R4& ON STACK 

R5,-(SP) ;;PUSH R5 ON STACK 

avGECCl, RI sECC1 WORD 

O#GECC2,R2 sECC2 WORD 

a#ECDATA 71S CURRENT BIT A ONE 

2% BRANCH IF CURRENT DATA D=0 


:*1F CARRY 1S NOT ZERO THEN D=1 
s*INVERT X32 TO GIVE RO 


R1,R3 
#*CP1E32,R3 
R3 


R3,RO 
3$ 


self CARRY IS ZERO THEN D=0 
;*X32 BECOMES RO 


R1 »R3 
#*CPIE32,R3 
R3,RO 


RO 
RO 


| 


SEQ 0224 


ee 
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045546 
045550 


045552 
045554 
045560 
045562 
045566 


045572 
045574 


045606 


045612 
045614 
045620 
045622 
045626 


045632 
045634 
045640 
045642 
045646 


045652 
045654 
045656 
045662 
045666 
045672 


045674 
045676 
045702 
045706 
045712 
045714 


10-SEP-79 11:00 


010337 
006237 


010103 
052703 
005103 
010337 
006237 


006002 


050002 


005000 
053700 


000404 


137777 


045452 
045452 


177737 


045454 
045454 


173777 


045456 
045456 


176777 


045460 
045460 


045452 
045454 
120020 


045456 
045460 
002400 


MACY11 30A(1052) 
ECC GENERATION AND COMPARISON ROUTINE 


. 
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TST RO 

BEQ 10% ;BRANCH IF RO=0 
st INVERT X2 

MOV R2,R3 

BIS M*CPIE2,R3 

COM R3 

MOV R3,aaP3 

ASR awP3 


s*INVERT X11 


MOV R2,R3 
BIS M*CPIE11,R3 
COM R3 
MOV R3,aaP12 
ASR aaPi2 
st INVERT X21 
MOV R1,R3 
BIS s"CPIE2t, R3 
COM 3 
MOV R3,aaP22 
ASR aawP22 
s* INVERT X23 
MOV R1,R3 
BIS M*CPIE23,R3 
COM R3 
MOV R3,aaP24 
ASR aaP2s 
Pees THAT RO FOR POSITION 1 
: P3 FOR POSITION 3 
“ P12 FOR POSITION 12 
it P22 FOR POSITION 22 
;t P24 FOR POSITION 24 
s*ARE KNOWN THE ROTATE WILL BE DONE AND 
:*THESE BITS JAMED IN 
ROR R2 
ROR R1 
BIS aeP3, -? 
BIS awPi2.R 
BIC ratiprees PIE12,R2 
BIS RO,R2 
CLR RO 
BIS a#vP22,R0 
BIS aeP24,R0 
BIC MPIE22'PIE24,R1 
BIS RI 
BR 12% 


SEQ | 


CHR JG 


10042 
10043 


045716 


045736 


045742 


045744 
045752 
045754 
045762 
045764 


045766 
045770 
045774 
046000 


046002 


046020 


046022 
046026 


046030 
046030 012605 


000421 


010146 
042716 
022677 
001404 


004737 
104035 
001403 


004737 
104035 


phyteye wes! DSKLS CTRLRI 
P 10-SEP-79 11:00 


100000 


045432 


000400 
000100 


174000 
133672 


042336 


045440 


042336 


133166 
133156 


133650 


MACY11 30A(1052) GE 
ECC GENERATION AND COMPARISON ROUTINE 


108: 


128: 


> * CHECK 


15$: 


138: 


14$: 


G 
10-SEP-79 11:11 


227 


;*THE PROGRAM COMES HERE IF RO=0 
;*SO AFTER ROTATE RO GETS PUT INTO POSITION 1 


BEQ 


BEQ 


HARDWARE 
B 


R2 

R1 
WPIE1,R2 
R1,a#GECCl 


R2,a#GECC2 
a#TSECCG 


14% 


#SW8,ASWR 
15$ 
#SW6,aSWR 
15$ 

14% 
R1,-(SP) 


#174000, (SP) 
(SP)+,@RHEC2 
13$ 


ce SAVE TIME 


PC ,a#PUTREG 
35 


14% 
a#POSITI,@RHECI 
14% 


;*TO SAVE TIME 


JSR 
ERROR 


MOV 


PC ,a#PUTREG 
35 


(SP)*,R5 


; SAVE ECCI 
sSAVE ECC2 


;1S HARDWARE TO BE CHECKED 


z1f =1777777 TEST HARDWARE 
:1f = 0 DO NOT TEST HARDWARE 
;BRANCH IF HARDWARE NOT TO BE CHECKED 


71S SWITCH 8 SET 

;BRANCH IF SW8 IS SET 

:1S SWITCH 6 SET 

;BRANCH IF SW6 IS NOT SET 


;1F SWITCH 8 IS NOT SET AND 


;SWITCH 6 IS SET THEN 

;D0 NOT DO COMPARES 

;GOOD PATTERN REGISTER 
;GET ONLY PATTERN BITS 

; COMPARE PATTERN REGISTER 
;BRANCH IF GOOD 


SAVE REGISTERS 

;PATTERN REGISTER IN 11 BITS IN ERROR 
;BRANCH OUT 

;COMPARE POISTION REGISTER 

;BRANCH IF GOOD 


SAVE REGISTERS 
;POSITION REGISTER IN ERROR 


:'‘DATA ENVLOP’’ GIVES NUMBER OF CLOCK 
;PULSES FROM BEGINING OF COMMAND 


>THAT IS THE CLOCKS IN THE R/W DATA FIELD ENVELOPE 


[IN A WRITE THERE ARE 1000C OCTAL CLOCKS 
[IN A READ THERE ARE 10040 OCTAL CLOCKS 


‘“N=CODE ZEROS’ GIVE THE NUMBER OF CLOCKS 
: GIVEN FOR THE LEADING ZEROS FIELD 
“MAX COUNT IS 113713 OCTAL 


:"GOOD POSITION’ GIVES NUMBER OF CLOCKS 
:GIVEN AFTER LEADING ZEROS WHICH IS FOR THE DATA 


FIELD 
>MAX COUNT IS 10040 OR 10041 OCTAL 


:;POP STACK INTO RS 


CZRIGDO,RPO4/5/6 DSKLS Oy oo 
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046032 
046034 
046036 
046040 
046042 
046044 


10-SEP-79 1 
012604 


000207 


MACY11 30A(1052) 10-SEP-79 11:11 
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(SP)+,R4 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 
PC 


H 2 
PAGE 228 


STACK 
STACK 
STACK 
STACK 
STACK 


INTO R4 
INTO R3 
INTO R2 
INTO RI 
INTO RO 


SEQ 0227 


.¢ 
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CZRIGD.P 10-SEP-79 11:06 ECC GENERATION AND COMPARISON ROUTINE SEQ 0228 
10050 

10051 

10052 :*THIS SUBROUTINE WILL CONTROL THE ECC GENERATION ROUTINE 

10053 :*FOR ERROR CORRECTION PROCESS 

10054 *CALL JSR, PC ,a#ECORR 

sb ot 4 38 xP EXPECTED POSITION REGISTER WHEN CORRECTION IS COMPLETE 
10057 

10058 

+o bt 046046 000000 ERPOS: 0 POSITION REG. WHEN CORRECTION IS COMPLETE 
10061 

10062 

10063 046050 010037 002014 ECORR: MOV RO, a#PCUSR ;SAVE PC OF JSR + 4 

10064 046054 162737 000004 002014 SUB #4, a#PCUSR ;SAVE PC OF JSR 

10065 046062 012037 046046 MOV (RO)+,@MERPOS ;:GET POSITION REG. WHEN CORRECTION IS COMPLETE 
10066 046066 010146 MOV R1,-(SP) ::PUSH R1 ON STACK 

10067 046070 013701 001660 MOV Q#RHMR,RI sMAIMTENANCE REGISTER 

10068 046074 012711 000001 MOV #DMD,aRI >SET DIAGNOSTIC MODE BIT 

0098 046100 005037 945424 CLR a#ECDATA. :ECC DATA IS ZERO 

10071 : 

10072 

10073 046104 005737 045440 1$: TST avPOSsiTl :1S SOFTWARE POSITION NON ZERO 

10074 046110 001007 BNE 2$ BRANCH IF N-CODE S COMPLETE 

10075 046112 005337 045436 DEC a#NCOUNT :DECREMENT N-CODE 

10076 046116 001001 BNE 6$ :BRANCH IF N-CODE IS NOT COMPLETE 

10077 046120 000403 BR 2$ :BRANCH AS N-CODE IS COMPLETE 

10078 046122 005237 045446 6$: INC awvZCODE : INCREMENT CLOCKS GIVEN FOR LEADING ZEROS 
10079 046126 000420 BR 38 BRANCH AS N-CODE 1S NOT COMPLETE 

10080 :60 TO GIVE CLOCK AND TEST ECC 

10081 046130 005237 045440 2$: INC a#vPOSITI : INCREMENT SOFTWARE POSITION 

10082 046134 023737 046046 045440 CMP aWERPOS ,a#POSITI: HAVE ENOUGH CLOCKS BEEN GIVEN TO DETECT ERROR 
10083 046142 103012 BHIS 3$ BRANCH IF MORE CLOCKS TO BE GIVEN 

10084 046144 023737 045450 045440 CMP AMHADTMP,a#POSITI;HAVE ENOUGH CLOCKS BEEN GIVEN FOR HARD ERROR 
10085 : THAT IS HAVE 4128 MORE CLOCKS BEEN GIVEN 
10086 046152 001415 BEQ 5$ :BRANCH IF YES 

10087 046154 0632711 000400 BIT #ZER,aR1 CHECK ZERO DETECT BIT IN RHMR 

10088 046160 001016 BNE 4$ :BRANCH IS ZER SET 

10089 :*T0 SAVE TIME 

10090 046162 004737 042336 JSR PC, a#PUTREG SAVE REGISTERS 

10091 046166 104034 ERROR 34 ZERO DETECT BIT NOT HIGH 

10092 ‘WHEN 21 BITS IN ECC 32 BIT REGISTER IS 0 
10093 

10094 

10095 046170 052711 000002 3$: BIS #MCLK,@R1 ;SET CLOCK 

10096 046174 042711 000002 BIC #MCLK aR CLEAR CLOCK 

10097 046200 004737 045462 JSR PC ,awECTEST :GO TO GENERATE AND TEST ECC 

10098 046206 000737 BR 1$ : CONTINUE 

10100 :*THIS EXTRA CLOCK 1S TO BRING ECH HIG 
10101 stAFTER THIS CLOCK POSITION REGISTER MAY BE 10040 OR 10041 OCTAL 
10102 

10103 046206 052711 000002 S$: BIS #MCLK,QRI :SET CLOCK 

10106 046212 042711 000002 BIC #MCLK,aR1 CLEAR CLOCK 

101 








CZRJGD.P11 


046216 
046216 
046220 


+ 
—_ 
see 5 


COVWVFWN—O ODA VUFWN—OOO~ 


046222 


i ee et 
lelelelelejlejejeleleleolojojlojlolmlelelelolea) 
i eo ot nw 


PRORIP PGP — s S S S sO 


51 046352 
046354 
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012601 
000200 


010046 


012600 
000207 





045440 
045426 
045430 
051534 
000400 
000020 


177777 =045424 


045424 
045462 


045426 052534 
045430 052536 
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ECC GENERATION AND COMPARISON ROUTINE 


4$: 
MOV (SP)+,R1 3;POP STACK INTO R1 
RTS RO 


s*THIS SUBROUTINE GENERATES THE ECC FOR WHAT IS ON DISK AND INSERTS THEM 
;*ON LOCATIONS ‘'DISK*1000"' AND ‘’D1ISK+1002"" 


FILLEC: 
MOV RO,-(SP) >;PUSH RO ON STACK 
MOV R1,-(SP) 3;PUSH R1 ON STACK 
MOV R2,-(SP) 3;PUSH R2 ON STACK 
MOV R3,-(SP) 3;PUSH R3 ON STACK 
MOV R4,-(SP) 3:PUSH R4& ON STACK 
MOV RS,-(SP) 3;PUSH RS ON STACK 
CLR a#POSITl ;CLEAR POSITION 
CLR a#GECCl sCLEAR GECC1 
CLR a#GECC2 3; CLEAR 
MOV #DISK,RI sPOINTER TO DATA FOR ECC GENERATION 
MOV #256.,R2 ; COUNTER FOR NUMBER OF DaAiA WORDS 
9$: MOV #16.,R3 = COUNTER FOR NUMBER OF BIJ7S PER WORD 
MOV (R1)4,R4 ;DATA IN RG 
108: ROR R4 ;GET ONE DATA BIT IN CARRY 
BCC 11$ sBRANCH IF DATA BIT IS ZERO 
MOV #-1,QaMECDATA sECC DATA BIT IS A ONE 
BR 12% ;BRANCH TO GENERATE ECC 
11$: CLR QMECDATA ECC DATA BIT IS A ZERO 
128: JSR PC ,a#ECTEST 3G0 TO GENERATE ECC 
DEC R3 ;DECREMENT BIT COUNT 
BNE 10% ;BRANCH IF 16 BITS NOT DONE 
DEC R2 ;DECREMENT WORD COUNT 
BNE 9$ sBRANCH IF 256 WORDS NOT DONE 


MOV O#GECC1 ,@#D1SK+<256.%2>; INSERT ECC1 ON DISK 
MOV O*GECC2 ,A#D1SK+<257.*2>; INSERT ECC2 ON DISK 


MOV (SP)+,R5 ;;POP STACK INTO R5 
MOV (SP)+,R4 3>;POP STACK INTO R4 
MOV (SP)+,R3 3:POP STACK INTO R3 
MOV (SP)+,R2 ;;POP STACK INTO R2 
MOV (SP)+,R1 3;POP STACK INTO R1 
MOV (SP)+,RO 3:POP STACK INTO RO 
RTS PC 


~SBTTL RH BASE ADDRESS CHANGE ROUTINE 


pee THIS ROUTINE WILL ALLOW THE CHANGE OF THE BASE 
pee ADDRESS FROM 176700 TO ANY TYPED VALUE 


—--—— 


SEQ 0229 


ce 
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CZRJGD.P11 10-SEP-79 11:00 RH BASE ADDRESS CHANGE ROUTINE SEQ 0230 
10162 

10163 046356 BASECH: 

10164 046356 104401 046364 TYPE 65% hh ASCIZ STRING 

10165 046362 000425 BR 64% sGET OVER THE ASCIZ 

10166 23658: .ASCIZ ci5><12>/PRESENT’ BASE ADDRESS OF REGISTERS 1S / 
10167 046436 64%: 

10168 046436 013746 001640 MOV @#@RHCS1,-(SP) ;GET READY TO TYPE OLD BASE 

10169 046442 104492 TYPOC 

10170 046444 104401 046452 TYPE ret ty 23 TYPE ASCIZ STRING 

10171 046450 000425 BR [GET OVER THE ASCIZ 

10172 33678: .ASCIZ +t eT NEW BASE ADDRESS FOLLOWED By ‘CR’ / 
10173 046524 66$: 

10174 046524 004737 055310 JSR PC ,aa#STKINT s INITIALIZE THE TTY KEYBOARD 
10175 046530 104412 RDOCT 

10176 046532 012700 001630 MOV #RHDB,RO ;GET STARTING ADDRESS OF REGISTERS 
10177 046536 012701 000026 MOV #22.,R1 “NUMBER OF REGISTERS 

10178 046542 012737 047342 000004 MOV #ADTIMO,a84 ;SET UP TO CHECK NEW ADDRESS 
10179 046550 021637 001640 CMP aSP,a#RHCS1 sNEW CSR? ‘ 
10180 046554 001407 BEQ 1$ sNO-SKIP NEXT 

10181 046556 005776 000000 TST a0(SP) sACCESS THE NEW ADDRESS 

10182 046562 163716 001640 SUB a#RHCS1,aSP :GET THE ADDRESS OFFSET 

10183 046566 061620 23: ADD asP,(RO)+ ;AND PLUG IT IN 

10184 046570 005301 DEC R1 ;DONE ALL OF THEM YET? 

10185 046572 001375 BNE 2$ ‘NOT YET, SO DO MORE 

10186 046574 1$: 

10187 046574 104401 046602 TYPE 09% ii TYPE ASCIZ STRING 

10188 046600 000417 BR 68$ :GET OVER THE ASCIZ 

10189 3;09$: .ASCIZ <15><12>/PRESENT. VECTOR ADDRESS IS / 

10190 046640 68$: 

10191 046640 013746 001626 MOV Q#RPVEC,-(SP) ;GET READY TO TYPE OLD VECTOR ADDRESS 
10192 046644 104402 TYPOC 

10193 046646 104401 046654 TYPE 11% 23 TYPE ASCIZ STRING 

10194 046652 000437 BR 70$ 3GET OVER THE ASCIZ 

10195 2:71$:  .ASCIZ <15><12>/TYPE NEW VECTOR ADDRESS OR RETYPE OLD ONE FOLLOWED By ‘CR’ / 
10196 046752 708: 

10197 046752 104412 RDOCT 

10198 046754 012637 001626 MOV (SP)+ aaRPVEC s;SETUP VECTOR ADDRESS 

10199 046760 104401 046766 TYPE 738 i; TYPE ASCIZ STRING 

10200 046764 000416 BR 72$ >GET OVER THE ASCIZ 

10201 3273$: .ASCIZ <15><12>/NEW BASE WILL REMAIN - / 

10202 047022 72%: 

10203 047022 013746 001640 MOV a#RHCS1,-(SP) 

10204 047026 104402 TYPOC 

10205 047030 104401 047036 TYPE 15% ii TYPE ASCIZ STRING 

10206 047034 000416 BR 74$ [GET OVER THE ASCIZ 

10207 -75$: .ASCI2Z ryeux tinea VECTOR WILL REMAIN - / 

10208 047072 bis: 

10209 047072 013746 001626 MOV OARPVEC,-(SP) 

10210. 047076 104402 TYPOC 

10211 047100 104401 047106 TYPE ,'7$ ii TYPE ASCIZ STRING 

10212 047104 000417 BR 76% 3GET OVER THE atte 

10213 2377$: .ASCIZ <15><12>/UNTII PROGRAM 1S RELOADED./ 

10214 047144 76%: 

10215 047144 104401 047152 TYPE ,(9$ si TYPE ASCIZ STRING 

10216 047150 000402 BR 78$ >:GET OVER THE ASCIZ 

10217 2:79$: .ASCIZ <15><12>/ / 
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10218 047156 78$: 
10219 047156 104401 047164 TYPE 81$ i:TYPE ASCIZ STRING 
10220 047162 000424 BR 80$ GET OVER THE ASCIZ 
10221 3:81$: .ASCIZ <15><12>/UNLESS HALTED AND MANUALLY RESTARTED, / 
10222 047234 808: 
10223 047234 104401 047242 TYPE ,83$ s:TYPE ASCIZ STRING 
102 047240 000426 BR 82% sGET OVER THE ASCIZ 

-:83$: .ASCIZ <15><12>/PROGRAM WILL AUTOMATICALLY RESTART FROM / 
10226 047316 823: 
10227 047316 012746 000200 MOV WRA,-(SP) 
10228 047322 104402 TYPOC 
10229 047324 104401 047332 TYPE ,85$ riTYPE ASCIZ STRING 
10230 047330 000402 BR B4$ +:GET OVER THE ASCIZ 
10231 3385$: .ASCIZ <15><12>/ / 
10232 047336 84$: 
10233 047336 000137 004244 JMP @MBEGIN :0K, NOW START OVER WITH NEW ADDRESS 
10234 047342 ADTIMO: 
10235 047342 104401 047350 TYPE ,65$ i:TYPE ASCIZ STRING 


10236 047346 000424 BR 64% GET OVER THE ASCIZ 
10237 33658: .ASCIZ <15><12><377>/SPECIFIED ADDRESS DID NOT RESPOND. / 
10238 047420 64$: 
10239 047420 0622626 CMP (SP)+,(SP)+ RESTORE THE STACK 
bs 047422 000137 046356 JMP a#BASECH ;AND DO IT AGAIN. 
4 
10242 
10243 
10244 
10245 
10246 3*THIS IS A LITTLE ROUTINE THAT TESTS NED BIT 11 IN RHCS2 
10247 ;*THIS LOOPS HERE FOR EVER 
10248 3*TO BE USED ONLY IF DRIVES PRESENT LOOKING AT NED DOES NOT AGREE 
10249 :*WITH WHAT IS REALY THERE 
10250 047426 000000 ERUNIT: 0 ;UNIT UNDER MANUAL TEST 
10251 047430 604737 042732 ERSTART: JSR PC ,a#CLDISK ;SET GENERAL REG. 
10252 047434 013712 047426 MOV O#ERUNIT,AR2 >SELECT UNIT 
10253 047440 005714 1$: TST aR4 TEST RHERI 
10254 047442 032712 010000 BIT WNED ,aR2 TEST NED 
10255 047446 001401 BEQ 2$ ;BRANCH IF GOOD 
10256 047450 0007735 BR 1$ ;NED NOT SET 


047452 000772 2$: BR 1$ :NED SET 
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CZRJGD. Pil 10-SEP-79 11:00 RH BASE ADDRESS CHANGE ROUTINE SEQ 0232 
10258 

10259 -SBTTL DISK SIMULATION 

10260 pteeeerererrerreerereeterereeeeeeteeeeeeReHeeKTeeeeKeereN Kee ee 
10261 : eeneerereeereeerereeeererereeeeereereteeeeneeereeeeneeeteeerete 
10262 :*IN A WRITE HEADER AND DATA COMMAND FILL THE FOLLOWING 
10263 ;*WCLY=WITH CYLINDER TO BE ON DISK 

10264 s*WSECTR=WI1TH SECTOR AND TRACK TO BE ON DISK 

10265 eWKEY1= WITH KEY1 TO BE ON DISK 

10266 > *WKEY2= WITH KEY2 TO BE ON DISK 

10267 ;*FNWORD= NO OF DATA WORDS TO BE WRITTEN ON DISK 
10268 se THE COMMAND THEN IS JSR PC, COMWHD 

10269 4 

10270 . 

10271 * 

10272 : 

10273 ieIN A WRITE DATA COMMAND FILL THE FOLLOWING 

10274 s*CYL=WITH CYLINDER TO BE FOUND ON DISK 

10275 > *SECOTR= WITH SECTOR AND TRACK TO BE FOUND ON DISK 
10276 s*KEY1= WITH KEY1 TO BE FOUND ON DISK 

10277 s*KEY2= WITH KEY2 TO BE FOUND ON DISK 

10278 3*X= 1 MUST BE ONE 

10279 > *NOWORD= WITH NUMBER OF DATA WORDS TO BE WRITTEN 
10280 >*THE COMMAND THEN IS JSR PC,COMHD 

10281 hl 

10282 7* 

10283 se 

10284 7@ 

10285 3* 

10286 3* 

10287 :*IN A READ HEADER AND DATA COMMAND FILL THE FOLLOWING 
10288 s*CYL= WITH CYLINDER TO BE FOUND ON DISK 

10289 : *SECOTR= WITH SECTOR AND TRACK TO BE FOUND ON DISK 
10290 s*KEY1= WITH KEY1 TO BE FOUND ON DISK 

10291 s*KEY2=WITH KEY2 TO BE FOUND ON DISK 

10292 >*DAWORD= WITH NUMBER OF WORDS TO BE FOUND ON DISK 
10293 3*;X=0 MUST BE ZERO 

10294 >*THE COMMAND THEN IS JSR PC,COMHD 

10295 ie 

10296 al 

10297 7° 

10298 :* 

10299 3° 

10300 “ho 

10301 ;* 

10302 :* 

10303 ral 

10304 7@ 

10305 s*IN A READ DATA COMMAND FILL THE FOLLOWING 

10306 s*CYL= WITH CYLINDER TO BE FOUND ON DISK 

10307  *SECOTR= WITH SECTOR AND TRACK TO BE FOUND ON DISK 
10308 s*KEY1= WITH KEY] TO BE FOUND ON DISK 

10309 *KEY2=W1TH KEY2 TO BE FOUND ON DISK 

10310 > *DAWORD= WITH — OF WORDS TO BE FOUND ON DISK 
10311 reg K= Q MUST BE ZERO 

10312 seine COMMAND THEN IS JSR PC,COMHD 

10313 : 
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047454 


047502 


047504 
047512 
047520 
047526 


047534 


047542 
047546 


047550 
047554 
047560 
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000000 


010546 
012777 


052777 
012737 


005337 
001375 


013746 
042716 
012637 


002014 
000004 


000001 


000001 
000113 
047454 
047620 


177740 
047570 


N 2 
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002014 


047454 


DISK SIMULATION 


PpeeeeeerererertenrererereeeteeeereeeAeeeeteeeeeneeneteeeeneeeeee 
7*WRITE DATA COMMAND 
;*OR READ COMMAND 1.E DATA ONLY OR HEADER AND DATA 


SRA AA ARATE TREK ATER TATE AAA AAKeA AAA AA KAKA RAe Ae eAte 


:**THI]S SUBROUTINE 1S THE FIRST IN A SERIES OF NESTED SUBROUTINES 


po + te DIAGNOSTIC MODE, AN EXTRA DIAGNOSTIC INDEX, AND THE 
-*f 


;**]T THEN CALL THREE ye SUBROUTINES, WHICH IN TURN CALL OTHER 
;**SUBROUTINES. THESE ARE: 


Pall SEARCH 
oee RDHEAD 
pee WRDATA 
pee REDATA 


RUNCTR: .WORD 0 


COMHD: MOV (SP) ,a#@PCJSR SAVE PC OF JSR + 4 
SUB #4 ,a#PCUSR SAVE PC OF JSR 
MOV RO,-(SP) 3;PUSH RO ON STACK 
MOV R1,=-(SP) ;;PUSH R1 ON STACK 
» MOV R2,-(SP) ;;PUSH R2 ON STACK 
MOV R3,-(SP) ;:PUSH R3 ON STACK 
MOV R4,-(SP) 7;PUSH R4& ON STACK 


MOV R5,-(SP) ;;PUSH R5 ON STACK 


’ MOV #DMD ,ARHMR SET DIAGNOSTIC MODE 
BIS WMINX,QRHMR SET DIAGNOSTIC INDEX 
BIC #MINX ,QRHMR CLEAR DIAGNOSTIC INDEX 
BIS #G0,aRHCS1 ISSUE *GO' BIT & STALL “TILL ‘RUN’ 


. ; (FUNCTION CODE IS ISSUED BY THE TEST) 


RUNWAT: MOV - #75.,@#RUNCTR ;LOAD STALL COUNT = APPROX. 450US 
FOR 11/50 CPU WITH CORE MEMORY 
1$: DEC O#RUNCTR ;COUNT DOWN ONE 
BNE 1$ CONTINUE UNTIL = 0 


MOV SECOTR, -(SP)  ;GET DESIRED SECTOR/TRACK 
BIC #177740, (SP)  :MAKE ONLY SECTOR 
MOV (SP)+, @M#TRK ;SAVE SECTOR 


SEQ : 


CZRIGDO,RPO4/5/6 DSKLS ein? 
CZRIGD.P11 11:00 


047564 
047570 


047612 


047616 
047620 
047622 
047624 
047626 


047630 


047632 


047634 


047636 
047642 
047644 
047650 
047652 


10-SEP-79 
004137 


000000 
000000 
000000 
000000 
000000 


000240 


000240 


000240 


053664 


000240 
047630 
047632 
047634 
047740 


002006 
047626 
047732 


MACY11 30A(1052) 


DISK SIMULATION 


TRK: 


HEDGAP: 


HEDSYN: 


10-SEP-79 11:11 


NOP 


NOP 


R1,@#SEARCH 


0 

#+NOP,R1 
R1,@#SSYN 
R1,@#HEDGAP 
R1,a#HEDSYN 
R1,a#RDHEAD 


B 5 
PAGE 235 


ISSUE SECTOR CLOCKS <---------------- 


;GOING TO MOVE NOPS 
;NOP INTO SSYN 

;NOP INTO HEDGAP 
;NOP INTO HEDSYN 


ERROR CALL LOCATIONS FOR THE READ HEADER OPERATION 


ooo°oo 


Oa#ERFLGS 
OUT 


ax 
DARE AD 
a#NOSYNC 


:CYLINDER ADDRESS 
;SECTOR/TRACK ADDRESS 
;KEY1 WORD 

sKEY2 WORD 

3X=1 WRITE COMMAND 
3>X=0 READ COMMAND 


;1F “ERROR 2°’ INSERTED BY RDHEAD 
; SUBROUTINE THEN THE FIRST SYNC. 
;1S NOT DETECTED. NO BAD DATA 
31S GIVEN BECAUSE SYNC=144000 
;CANNOT BE READ. WORD NO 

:1S ‘'l"' BECAUSE THIS IS THE FIRST 
;WORD TESTED 


;1F “ERROR 3°’ INSERTED BY 
;RDHEAD SUBROUTINE THEN THE 
;HEADER GAP 0'S WERE NOT 
;WRITTEN RIGHT. 

;1F "WORD NO'’ CONTAINS, SAY 
33(8), THEN IT IS THE THIRD 
;WORD OF A 5 WORD HEADER 
;GAP THAT IS WRONG 

‘BAD DATA'’ CONTAINS WHAT IS 
;GOING ON THE DISK 


:1F “ERROR 3°’ INSERTED BY RDHEAD 
; SUBROUTINE THEN THE HEADER SYNC. 
;GENERATED BY DCL IS WRONG 

;OR THE LAST BYTE 

;OF THE HEADER GAP 0°S IS WRONG 
:;IN EITHER CASE WORD NO=6 

;RIGHT BYTE 1S HEADER 0 

sLEFT BYTE IS SYNC 

"BAD DATA'’ HAS WHAT IS GOING 

;ON DISK 


;ARE ANY ERRORS DETECTED 


EAD 
"THIS FORCED HEADER ERROR COMMAND 
YES NOSYNC=-1 THEN WRITE OR READ 
SHUT OFF SO BRANCH OUT 


= Seg Se 


SEQ 0254 


CZRIGDO,RPOS/5/6 DSKLS CTRLRI 
CZRJGD.P11 11:00 


047656 
047660 
047664 
047666 
047670 


047672 


047716 


10-SEP-79 


001011 
004137 


000000 
000000 
000404 


004137 
000000 
000000 


012605 
012604 
012603 
012602 
012601 
012600 
000207 


051204 


054140 


MACY11 30A(1052) 


DISK SIMULATION 


NOWORD: 
Y: 


DAREAD: 


DAWORD: . 


OUT: 


10-SEP-79 «11:11 


BNE 


Out 
R1,QMWRDATA 
0 

0 

OuT 
R1,@#REDATA 
0 

0 

(SP)+,R5 
(SP)+,R4 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 


(SP)+,RO 
PC 


mh. 
PAGE 256 


i IF 


NOSYNC= 


EXIT IF SET 
WRITE DATA <e--s--ee-nnn-nnnn---- 
;NO OF WORDS TO BE WRITTEN 


;READ 


DATA < 


- THEN CONTINUE 


;NO OF WORDS TO BE READ 


STACK 
STACK 
STACK 
STACK 
STACK 
STACK 


INTO R5 
INTO R4 
INTO R3 
INTO R2 
INTO RI 
INTO RO 


ROUTINE 


SEQ 


CZRJGDO,RP04/5/6 DSKLS sir 
10-SEP-79 11:00 


CZRIGD.P11 


10446 
10447 


047720 


047726 
047730 


014400 


000000 


dD 3 
MACY11 30A(1052) 10-SEP-79 11:11 PAGE 257 
DISK SIMULATION SEQ 0236 


pereeeereererereeeeeterereeeeeteerereeeeeeeeeeeeneeeeneeeneeeeee 


:eTHE DISK SECTOR IS DEVIDED AS FOLLOWS 
:*19 WORDS OF 0, ONE WORD 144000 
:*THESE MAKE 39 BYTES FOR SECTOR GAP AND ONE SYNC. BYTE 


RSYNC: 1 
RCYL: 0 
RSETR: 0 
RKEY1: O 
RKEY2: 0O 


3*5 WORDS OF 0 ONE WORD 144000 
;*THESE MAKE 11 BYTES FOR HEADER GAP AND ONE SYNC. BYTE 
;*THESE ARE DCL GENERATED 


;* THERE ARE 256 WORDS OF DATA 
;*THERE ARE 2 WORDS FOR ECC GENERATED BY DCL 
3*15 WORDS OF 0 FOR DATA GAP AND TOLERANCE GAP 


Sp eeeeererrerereereererererereeeeeteeeeeAAeKARerereReenesereneense 


CZRJGDO ,RPO4/5/6 DSKLS CTRLRI 
CZRJGD.P11 11:00 


ee ee ee ee ee eet ee 
oooooo°o°C;oo 
PPD APPA SIT 
Ry et et a a ot ee 
SCOONO UF WwR— 


047732 


047734 
047736 


047740 


050140 


10-SEP-79 1 


000000 


000000 
000000 


= = | O90 FW 


047722 


050530 
001660 


000012 


000013 
000012 
000007 
000002 
000002 


000022 
050526 
050532 


047720 
050532 
001000 


000001 
047720 
104002 


047722 


MACY11 30A(1052) 
DISK SIMULATION 


050526 


047736 
001124 
047630 


050526 


10-SEP-79 


ce 3 
11:11 PAGE 238 


sp eeeeeererereeerererererreretrtetrrreeteeeeKeeeteKereneereeee eee 


;*READ DISK HEADER 


spe eeeeereeetereeereeeteeereeeerrererreeeeeteeeteeeketeeeeeeeee eee 


NOSYNC: 


v3 
ERWORD: 


RDHEAD: 


4$: 


5$: 


0 


(R1)+, 
(R1)+, 


;FORCED HEADER ERROR = -1 
sNORMAL = 0 

;ERROR TYPE NO. 

sERROR WORD NO. 


Q@ARCYL ;STORE CYLINDER ADDRESS 
@#RSETR ;STORE SECTOR AND TRACK ADDRESS 


(R1)+, @RKEY] ;STORE KEY) 

(R1)+#, @MRKEY2 ;STORE KEY2 

(R1)+, @#COMPA : STORE COMPARE OR NOT 
R1,-(SP) PUSH R1 ON STACK 

a#RHMR, RO RO CONTAINS MAINTANENCE REG. 
#2, R5 =R5 1S A COUNTER FOR WORDS 
#OMD, _aRO :DIAG. MODE 

#MSTCK,@RO ;SET SECTOR FOR FIRST WORD 
#MCLK ;SET CLOCK FOR FIRST WORD 


,aRO 
 alaaaieeeaaaeds RESET SECTOR AND CLOCK 


;BRANCH OVER GIVING SECTOR FOR FIRST TIME 


WMSTCKIMCLK!DMD,@RO;SET SECTOR, CLOCK, DIAG. MODE, RESET INDEX 


+ pike seat ;RESET SECTOR, CLOCK 


#7, sR2 1S A COUNTER FOR BYTES 
MMCLK, a@RO ;SET CLOCK 

#MCLK, a@RO sRESET CLOCK 

R2 ;BYTE COUNTER 

3$ :BRANCH IF BYTE NOT COMPLETE 
R5 ;WORD COUNTER 

1$ :BRANCH IF WORD NOT COMPLETE 
#18., R2 iNO OF WORDS OF ZEROS 

a#wOR READ 0 

PC, a#READ 60 TO READ 

R2 ; COUNT 

4% 

Q#RSYNC ,a#WORD ;SYNC. WORD 

PC, @#READ 

#DTSY, aRO sSYNC. BYTE DETECTED? 

5$ :BRANCH IF SYNC DETECTED 

#i\, avERWORD sERROR WORD NO 
OMRSYNC ,A#SGDDAT 


;SYNC WORD 
1 pieeepmabaahin ;INSERT “ERROR 2°' IN SSYN 


“BR ANCH QUT 


13% 
Q#RCYL, @MWORD ;SETUP CYLINDER 


SEQ 0237 


F 3 

CZRIGDO-RPO4/5/6 DSKLS CIRLRI MACY 30A(1052) 10-SEP-79 11:11 PAGE 259 
CZRJGD.P 10-SEP-79 11:00 DISK SIMULATION SEQ 0238 
10528 050146 004737 050532 JSR PC, ~——s @WREAD READ 

10529 050152 013737 047724 050526 MOV = @WRSETR,a#WORD SETUP SECTOR/TRACK 

10530 050160 004737 050532 JSR PC, AW READ ; READ 

10531 050164 013737 047726 050526 MOV = AWRKEY1,a#WORD ;SETUP KEYI 

10532 050172 004737 050532 JSR PC, READ ; READ 

10533 050176 013737 047730 050526 MOV = @WRKEY2, QNWORD :SETUP KEY2 

10534 050204 004737 050532 JSR PCW REA 

10535 050210 013737 051516 050526 MOV QAWEREABWORD SETUP CRC 

10536 050216 004737 050532 JSR PC, READ ; READ 

10537 050222 005737 002026 TST aNTESDTE 1S THIS A DRIVE TIMING ERROR 

10538 050226 001135 BNE 138 BRANCH OUT IF YES 

10539 050230 005737 050530 TST a4COMPA 31S THIS A READ OR WRITE COMMAND 

10540 050234 001472 BEQ 11$ 

10541 050236 012705 051520 MOV MHEGAP, RS ;POINTER FOR HEADER GAP 

10542 050242 012702 000005 MOV oS, R2 NO OF WORDS OF ZEROS 

10543 050246 012737 000006 047736 68: MOV =: #6, aWERWORD ERROR WORD NO SET 

10544 050254 004737 050764 JSR PC ,a#WRITE ;FOR HEADER GAP 

10545 050260 005737 050762 TST a#WwORD ; TEST WRITTEN WORD 

10546 050264 001413 BEQ 7$ ;BRANCH IF GOOD THAT IS 0 

10547 050266 160237 047736 SUB R2,a#ERWORD ;WORD NO IN ERROR 

10548 050272 005037 001124 CLR @sSGDDAT ;G00D WORD SHOULD BE 0 

10549 050276 013737 050762 001126 MOV  a#wWOR SBDDAT ;BAD DAT 

10550 050304 012737 104003 047632 NOV #106008 a#HEDGAP PERROR 2°" GOES IN HEDGAP 

10551 050312 000503 BR 138 SBRANCH OUT 

10552 050314 013725 050762 7$: MOV a#WWORD,(R5)+ + SAVE HEADER GAP 

10553 050320 005302 DEC R2 

10554 050322 001351 BNE 68 

10555 050324 004737 050764 JSR rt, Q#WRITE ;WRITE HEADER (DATA) GAP SYNC 

10556 050330 023737 047720 050762 CMP = QRS YNC ,a#WWORD 

10557 050336 001426 BEQ 108 | 
10558 050340 005737 047732 TST a#NOSYNC 71S THIS FORCED HEADER ERROR COMMAND | 
10559 :1F YES NOSYNC=-1 THEN WRITE OR READ | 
10560 31S SHUT OFF SO BRANCH OUT 

10561 :1F NO NOSYNC=0 THEN CONTINUE 

10562 050344 001406 BEQ 14% ;BRANCH 3F TRUE ERROR 

10563 050346 005737 050762 TST a#WWwORD ; | 
10564 050352 001420 BEQ 108 BRANCH IF GOCD 
10565 050354 005037 001124 CLR @#SGDDAT 11 SHOULD BE ZERO | 
10566 050360 000403 BR 158 BRANCH TO TYPE ERROR | 
10567 050362 013737 047720 001124 148: MOV O#RSYNC ,A#SGDDAT ;GOOD DATA 
10568 050370 013737 050762 001126 15$: MOV § a#WWORD,a#$BDDAT BAD DATA | 
10569 050376 012737 000006 047736 MOV 6 a#ERWORD | 
10570 050404 012737 104003 047634 MOV #104003 ,a#HEDSYN | 
10571 050412 000443 BR 138 ;BRANCH OUT 
10572 050414 013725 050762 108: MOV = aM#WWORD,(R5)* SAVE DATA SYNC. | 
10573 050420 000440 R 138 | 
10574 ;*READ COMMAND START FROM HERE 
10575 050422 012702 000005 11$: Mov #5, R2 | 
10576 050426 005037 050526 128: CLR WORD 
10577 050432 004737 050532 JSR PL, READ ; READ HEADER GAP 

10578 050436 005302 DEC R2 :1$ 5 HEADER GAP ZEROS COMPLETE | 
10579 050440 001372 BNE 128 :1F NOT BRANCH 

10580 050442 013737 047720 050526 MOV — AWRSYNC,A#WORD ;SYNC WORD | 
10581 050450 004737 050532 JSR PL, READ READ HEADER (DATA) SYNC) | 
10582 050454 005737 047732 TST aaNOSYNC | 


10583 050460 001404 BEQ 16$ 7 1f NOT ERROR COMMAND BRANCH 





CZRIGDO,RPO4/5/6 DSKLS CTRLRI 


CZRIGD.P11 


050462 


050524 


10-SEP-79 11:00 


032710 
5 


012737 


012601 
000201 


001000 


001000 


000006 
047720 
104002 


MACY11 


30A(1052) 
DISK SIMULATION 


16$: 


047736 17%: 
124 


00112 
047634 


13$: 


G 3 
10-SEP-79 11:11 PAGE 240 


#DTSY,aRO sSYNC. DETECTED 

13$ ;1f ZERO BRANCH OUT 

17% ;1f NOT ZERG BRANCH TO ERROR 
#DTSY, aRO :SYNC. DETECTED? 

13% ;BRANCH IF YES 

#6 ,a#ERWORD ERROR WORD NO. 

@#RSYNC ,A#SGDDAT; SYNC WORD 

#104002 ,a#HEDSYN 

i 7;POP STACK INTO RI 

R 


SEQ 0239 | 


Se 


CZRJGDO,RPO4/5/6 DSKLS CTRLRI 
CZRIGD.P11 11:00 


050526 
050530 


050532 


050722 


10-SEP-79 1 


000000 
000000 


010246 


012716 


000002 
000001 
050526 


000020 


045432 
000020 
177777 
045424 
000001 
050526 
000021 
045432 


045444 


045432 
000020 
177777 
045424 
000001 
050526 


000021 


MACY11 30A(1052) 


045424 


045424 


DISK 


10-SEP-79 
SIMULATION 


11:11 


;*READ ONE WORD IN "WORD" 


sc ererererrrrrerereererereserenrrerteeeeeReeerereeeteeeeeeeeeresee 


WORD: 


COMPA: 


READ: 


5$: 
6$: 


2$: 


3$: 


7$: 
8$: 


R2,-(SP) 
#2 


#DMD, 
a#wORD 
1$ 
WARD, aRO 
#7, R2 
WMSTCKIMCLK, 
as TSECCG 


6% 

#MRD ,aRO 

5$ 
#-1,Qa#ECDATA 
6$ 

a#ECDATA 


R5 
aro 


2$ 
#MRD'DMD, 
(SP)+, @RO 
a#TSECCG 

3$ 

a#DATENV 

PC ,a#ECTEST 
#MCLK, @RO 
a#TSECCG 

8$ 

#MRD ARO 

7$ 

#-1 ,a#ECDATA 
8$ 

a#ECDATA 


4$ 
#MRD ‘DMD, (SP) 


H 3 
PAGE 241 


-taeterterererrererererrerrerereeteeeeetereeteeerteeeeeeeeetereneeene 


3;PUSH R2 ON STACK 

;WORD COUNTER 

;SET DIAG. MODE 

sCHECKING IF THERE IS A ONE 

31 NO ONE BRANCH 

7SET BIT 4 IF DATA HAS ONE 

;BYTE COUNTER 

aro :SET CLOCK,DATA IF ANY, SECTOR 
:1S THIS BIT TO GENERATE AND TEST ECC 
;BRANCH IF NO 

;1S DATA BIT A ONE 

;BRANCH IF DATA BIT IS 0 

sECC DATA BIT 1S A ONE 

> BRANCH 

sECC DATA BIT IS AO 

;KEEP ONLY DIAG. MODE 

sCHECKING IF THERE IS A ONE 


;KEEP DATA AND DIAG. MODE 
;PUT IN DATA,RESET CLOCK, SECTOR 

;1S ECC TO BE GENERATED FOR THIS BIT 
;BRANCH IF NO 

;NUMBER OF CLOCKS GIVEN FOR DATA ENVELOPE 
;GO TO GENERATE AND TEST ECC 

SET CLOCK 

:1S THIS BIT TO GENERATE ECC 

:BRANCH IF NO 

:1$ DATA BIT A ONE 

;BRANCH IF DATA BIT IS = 0 

ECC DATA BIT IS A ONE 

; BRANCH 

;ECC DATA BIT IS = 0 

KEEP DIAG, MODE 

:CHECKING IF THERE 1S A ONE 

;BRANCH IF NO ONE 

KEEP DIAG. MODE AND DATA 


SEQ 0240 


CZRIGDO ,RPO4/5/6 DSKLS ip 
C2RJGD.P11 1:00 


050726 
050730 


050760 


10-SEP-79 1 
012610 


000207 


045432 


045444 
045462 


MACY11 30A(1052) 


DISK SIMULATION 


4%: 


9$: 


10-SEP-79 11:11 


(SP)+, a@RO 
a#TSECCG 
¥$ 


@#DATENV 
* Sptteeniaeas 


ei ‘ i aint ve ae 


1 3 
PAGE 242 


SEQ 0241 


;SET DATA, DIAG. MODE, CLEAR CLOCK 

3:18 THIS BIT TO GENERATE ECC 

;BRANCH IF NO 

sNUMBER OF CLOCKS GIVEN FOR DATA ENVELOPE 
3G0 TO GENERATE AND TEST ECC 

;BYTE COUNTER 

;BRANCH IF ONE BYTE NOT COMPLETE 

;WORD COUNTER 

;BRANCH IF ONE WORD NOT COMPLETE 

:;POP STACK INTO R2 


i a 


CZRJGDO,RPO4/5/6 DSKLS gin 
CIRICD. Pil 1:00 


050762 


050764 


051000 
051004 


10-SEP-79 1 


000000 


010046 


012710 
012762 


005237 


000002 
000001 


000007 
000013 
000040 


177777 


045424 
000001 
045432 
045444 
045462 
000002 
000040 


177777 
045424 
000001 


045432 
045444 


J 3 
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045424 


045424 


DISK SIMULATION 


so eeeeterereerrerererenerecerenereeeeeetereenenereneseeeeeeeesete 


s*WRITE ONE WORD WHICH COMES BACK IN ‘‘WWORD"’ 


;,eeeeeerrererereserereeeeeeerrerereneneneeetenneeneneeeeneneeere 


WWORD 0 
WRITE: 

MOV RO,-(SP) 7:PUSH RO ON STACK 

MOV R2,-(SP) 3;PUSH R2 ON STACK 

MOV R3,-(SP) 3;PUSH R3 ON STACK 

MOV R5,-(SP) 7;PUSH RS ON STACK 

MOV #2,R5 ;WORD COUNTER 

MOV #1,aR0 ;SET DIAG. MODE 

>RO HAS RHMR ADDRESS IN IT 

1$: MOV #7,R2 ;BYTE COUNTER 


MOV WMSTCK!MCLK!DMD,@RO;SET SECTOR AND CLOCK 


BIT #MWR ARO ;CHECK WRITE BIT IN MAINT. REG. 
BEQ 2$ ;BRANCH IF ZERO 
MOV #-1,Q#ECDATA sECC DATA BIT IS A ONE 
SEC SET CARRY 
ROR R3 ;MOVE 1 FORWARD 
BR 3$ 
2s: CLR Q#ECDATA sECC DATA BIT IS = 0 
CLC CLEAR CARRY 
ROR R3 ;MOVE 0 FOR WWORD 
3$: MOV #DMD ,aRO ;CLEAR SECTOR AND CLOCK 
TST a#TSECCG :1S THIS BIT TO GENERATE ECC 
BEQ 4% ;BRANCH IF NO 
INC Oa DATENV ;NUMBER OF CLOCKS GIVEN FOR DATA ENVELOPE 
JSR PC ,awECTEST ;GO TO GENERATE AND TEST ECC 
4%: BIS #MCLK ,aRO SET CLOCK IN RHMR 
BIT #MWR ARO ;CHECK WRITE BIT IN RHMR 
BEQ 5% BRANCH IF ZERO 
MOV #-1,QMECDATA :ECC DATA BIT IS A ONE 
SEC ;SET CARRY 
ROR R3 ;MOVE 1 FOR WWORD 
BR 6% 
5$: CLR a#ECDATA ECC DATA BIT IS ZERO 
CLC ; CLEAR CARRY 
ROR R3 ;MOVE 0 FOR WWORD 
6$: MOV #OMD,  @RO ;CLEAR CLOCK 
TST aa TSECCG :1S THIS BIT TO GENERATE ECC 
BEQ 7$ BRANCH IF NO 
INC OaDATENV ;NUMBER OF CLOCKS GIVEN FOR DATA ENVELOPE 





K 3 
CZRIGDO ,RPO4/5/6 te CTRLR1 = =MACY11 30A(1052) 10-SEP-79 11:11 PAGE 244 


C7RIGD. P11 10-SEP-79 11:00 DISK SIMULATION SEQ 0243 
10722 051144 004737 045462 JSR PC ,a#ECTEST ;GO TO GENERATE AND TEST ECC 
10723 051150 005302 7$: DEC R2 :COUNT FOR BYTE END 
10724 051152 001346 BNE 4$ ;1f NOT BYTE END BRANCH 
10725 051154 005305 DEC R5 ;COUNT FOR WORD EN 
orse 051156 001312 BNE 1$ 7 1f NOT WORD END BRANCH 
+46... 051160 010337 050762 MOV R3,a#WWORD STORE THE WORD 
107350 051164 012605 MOV (SP)+,R5 3;POP STACK INTO R5 
10731 051166 012603 MOV (SP)+*,R3 3;POP STACK INTO R3 
10732 051170 012602 MOV (SP)+,R2 ;;POP STACK INTO R2 
10733 051172 012600 MOV (SP)+,RO ;;POP STACK INTO 80 
ares 051174 000207 RTS PC 


— 

CZRIGDO,RPOG/S/6 DSKLS CTRLR1 = MACYI1 S0A(1052) 10-SEP-79 11:11 PAGE 245 
CZRJGD.P11 10-SEP-79 11:00 DISK SIMULATION SEQ 0244 
10738 

10739 

10740 

10741 sy eeteererererererereerereereeeeeerereteeeeeeReKeeeReTeHeeEeeeeee 
10742 s*WRITE DATA = PUT DATA INTO ‘‘DISK'’ AREA FROM “‘WWORD"’ 

10743 ;*ONE WORD AT A TIME 

10744 sy eteneererereetererererereerertereteeeeeeNtenerateneneneneneeene 
10745 

10746 

10747 

10748 

10749 

10750 

10751 

10752 051176 000000 COUNTD: 0 

10753 051200 000400 FORMAT: 256. 

10754 051202 000000 ZWORDS: 0 

10755 051204 WRDATA: 

10756 0512046 011137 951176 MOV (R1),@#COUNTD ;STORE NO. OF WORDS TO BE WRITTEN 
10757 051210 012102 MOV (R1)+#,R2 ;SAME IN R2 

erst 051212 012137 050530 MOV (R1)+,@#COMPA  ;COMPARE OR NOT 

10760 051216 010046 MOV RO,-(SP) ;;PUSH RO ON STACK 

10761 051220 010146 MOV R1,-(SP) 3;PUSH R1 ON STACK 

10762 051222 010246 MOV R2,-(SP) ;;PUSH R2 ON STACK 

10763 051224 010346 MOV R3,-(SP) ;;PUSH R3 ON STACK 

eres 051226 010446 MOV R4,-(SP) 33PUSH R4& ON STACK 

10766 051230 012701 000016 MOV #14.,R1 NO. OF TOLERANCE GAP WORDS 

10767 051234 012703 052542 MOV #TOLGAP ,R3 START OF TOLERANCE GAP TABLE 
10768 051240 012723 177777 1$: | MOV #-1,(R3)+ MAKE 11 177777 

10769 051244 005301 DEC R1 ;1S 14 COMPLETED 

10770 051246 001374 BNE 1$ :1f NO BRANCH 

10771 051250 013700 001660 MOV Q#RHMR, RO RO CONTAINS MAINTANENCE REG. 
10772 051254 013746 051200 MOV a#FORMAT,-(SP) 

10773 051260 163716 051176 SUB a#COUNTD, (SP) 

10774 051264 011637 051202 MOV (SP),@#Z2WORDS ;NO. OF ZERO WORDS TO BE WRITTEN 
10775 051270 012604 MOV (SP)+,R4 

10776 051272 005737 002024 TST a# TSEC :1S THIS AN ECC TEST ? 

10777 051276 001403 BEQ 7$ BRANCH IF NO 

10778 051300 012737 177777 045432 MOV #-1,a#TSECCG ; THESE BITS ARE TO GENERATE ECC 
10779 051306 012703 051534 7$: MOV #DISK,RS sADDRESS THE ‘‘DiSK'’ AREA : 
10780 051312 004737 050764 2$: JSR PC ,daWRITE sWRITE INTO ‘‘WWORD** 

10781 051316 0135723 050762 MOV Qa#WWORD,(R3)*  ;STORE ON SIMULATED DISK 

10782 051322 005302 DEC R2 ; COUNT DOWN 

10783 051324 001372 BNE 2$ ;CONTINUE IF ALL WORDS NOT WRITTEN 
10784 051326 005704 TST R4 sANY ZEROS TO BE WRITTEN ? 

10785 051330 001406 BEQ 4% BRANCH IF NONE TO BE WRITTEN 
10786 051332 004737 050764 3$: JSR PC ,a#WRITE sWRITE ZEROS INTO ‘‘wWORD"’ 

10787 051336 013723 050762 MOV Q#WWORD,(R3)* ZSTORE INTO “‘DISK*’ 

10788 051342 005504 DEC RG | 
10789 051344 001372 BNE 3$ 

10790 051346 005937 045432 4$: CLR a#TSECCG ;NO MORE ECC TO BE GENERATED 
10791 051352 012701 000002 MOV #2,R1 


10792 051356 004737 050764 5$: JSR PC WRITE WRITE ECC) AND ECC2 ON SIMULATED DISK 
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10793 051362 013723 050762 MOV QMWWORD,(R3)*  ;STORE ON WEECT AND WEEC2 
10794 051366 005301 DEC RI 
10795 051370 001372 BNE 5% 

10796 051372 004737 050764 JSR PC ,WRITE ;WRITE DATA GAP INTO ""wWORD"* 
10797 051376 013723 050762 MOV a#wWORD,(R3)+  ;STORE INTO ‘DISK’ 

10798 051402 012701 000016 MOV #14.,R1 

10799 051406 004737 050764 6$: JSR PC ,a#WRITE WRITE TOLERANCE GAP ZEROS 
10800 051412 013723 050762 MOV Q#WWORD,(R3)*  ;STORE INTO ‘‘DISK* 

10801 051416 005301 3 DEC R1 

eens 051420 001572 BNE 6$ 

10804 051422 012604 MOV (SP)+,R4 ;;POP STACK INTO R4 

10805 051424 012603 MOV (SP)+,R3 7;POP STACK INTO R3 

10806 051426 012602 MOV (SP)+,R2 ;;POP STACK INTO R2 

10807 051430 012601 MOV (SP)+,R1 3;POP STACK INTO Ri 

poe 051432 012600 MOV (SP)+,RO 7;POP STACK INTO RO 

10810 051434 000201 RTS R1 
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,,eeeeeeeerrererererererereseraseeereetteeteneeeteaeeeeReeeneeeeee 


;*WRITE HEADER AND DATA 


-* 
:*THIS 1S THE SIMULATED DISK 
>*ONLY ONE SECTOR OF SPACE IS ALLOWED 


;,eeeeeeeererererenereeereneneeetereeeteneKeneeeeeNeaReeAeeeeeeee 


SECGAP: 


TOLGAP: 


-BLKW 
>: .BLKW 
>: .BLKW 

-BLKW 
> =.BLKW 
>: .BLKW 


-BLKW 
-BLKW 
> .BLKW 
> .BLKW 
~BLKW 


;SECTOR GAP 38 BYTES OF 0 
;SECTOR GAP 1 BYTE OF O ONE SYNC BYTE 
sHEADER = CYL, SECTOR/TRACK, KEY1, KEY2 


;CRC 
sHEADER GAP 10 BYTES OF 0 


HEADER GAP 1 BYTE OF 0 ONE SYNC. BYTE 


; USED IN’ SILO TEST AS SILO TABLE 
;DATA SP 


¢ 


ACE 


sECC2 
;DATA GAP 2 BYTES OF 0 
; TOLERANCE GAP 28 BYTES OF 0 


SEQ 0246 
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052624 
052626 


052650 
052656 


052664 
052670 


052672 
052676 
052702 


052706 
052712 
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052777 
012737 


005337 
001375 


013746 
042716 
012637 


004137 
000000 


002014 
000004 


000001 


000001 
000113 
052576 
052756 
177740 
052712 
053664 
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SEQ 0247 


sp eeeerreeeererererrrereererereteretetereneteteeetereeeeneeeeeeee 


;*WRITE HEADER AND DATA 


,peteeeererererererereteeeeretereeetereneteeereteeneeeeteeReReeee 


>**THIS SUBROUTINE 1S THE FIRST IN A SERIES OF NESTED SUBROUTINES 
see]T Mitk DIAGNOSTIC MODE, AN EXTRA DIAGNOSTIC INDEX, AND THE 


;**1]T THEN CALL THREE y>* SUBROUTINES, WHICH IN TURN CALL OTHER 


;*#'Go' 
;**SUBROUTINES. THESE 
;*e SEARCH 
Pialiad WRHEAD 
t WRDATA 
RNCTR1: .WORD 0 
COMWHD: MOV (SP) ,a#PCJSR 
SUB #4 ,a#PCJSR 
MOV RO,-(SP) 
MOV R1,-(SP) 
MOV R2,-(SP) 
MOV R3,-(SP) 
MOV R4,-(SP) 
MOV R5,-(SP) 
MOV #DMD ,ARHMR 
BIS #MINX,QRHMR 
BIC #MINX,QRHMR 
BIS #G0,@RHCS1 
RNWAT1: MOV #75. ,Q#RNCTRI 
1$: DEC O#RNCTRI 
BNE 1$ 
MOV O#WSECTR,-(SP) 
BIC #177740,(SP) 
MOV (SP)+ ,aa#WITRK 
JSR R1,d#SEARCH 
WIRK: WORD 0 


; RUN’ 


LINE STALL COUNTER 


SAVE PC OF JSR + 4 
;SAVE PC OF JSR 


3; PUSH 


3;PUSH 


RO ON STACK 
R1 ON STACK 
R2 ON STACK 
R3 ON STACK 
R4 ON STACK 
R5 ON STACK 


SET DIAGNOSTIC MODE 
SET DIAGNOSTIC INDEX 


:CLEA 


R IT 
;SET "GO’ BIT & STALL ‘TILL ‘RUN 


;LOAD STALL COUNTER = APPROX. 450US 
sFOR 11/50 CPU WITH CORE MEMORY 


: COUNT 


DOWN 1 TIME 


;CONTINUE UNTIL 0 


:GET DESIRED SECTOR/TRACK 
;MAKE ONLY SECTOR 
;SAVE SECTOR 


; ISSUE 


SECTOR CLOCKS <eeeee------- > 


SECTOR NO 
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052764 


052766 


052770 
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000000 


000240 


000240 


090240 


000240 
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IMULATI 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
WCYL: 0 
WSECTR: 0 
WKEY1: 0O 
WKEY2: 0O 
GCRC: 0 
3; *DUMMY 
SEGPER: NOP 
FSYNER: NOP 
ERHEAD: NOP 
ERCRC: NOP 


#+NOP,R1 
Ri, @#SEGPER 
R1,a#FSYNER 
R1,@#ERHEAD 
R1,a#ERCRC 
R1,a#ERHOGP 
R1,a#HDESYN 


R1,@#WRHEAD 


C 4 
PAGE 249 


;GOING TO MOVE NOPS 
;NOP INTO SEGAP 
;NOP INTP FSYNER 
;NOP INTO ERHEAD 
;NOP INTO ERCRC 


sNOP INTO ERHDGAP 

sNOP INTO HDESYN 

sWRITE THE HEADER <---------------- > 
s CYLINDER 

s;SECTOR AND TRACK 

;KEY1 

sKEY2 

;GO00D CRC 


ERROR CALL LOCATIONS FOR THE WRITE HEADER OPERATION 


;1F “‘ERROR 6°’ INSERTED BY 
;WRHEAD SUBROUTINE THEN 
;SECTOR GAP GOING ON DISK 
;1S NOT RIGHT. 


;WORD NO. CONTAINS WHICH 

;WORD IS WRONG, THAT IS 

;FIRST OF TENTH OR WHAT EVER NO. 
;BAD WORD IS GOING ON DISK 


:1F “‘ERROR 6°’ INSERTED BY 
;WRHEAD SUBROUTINE THEN 

; THE LAST 0 BYTE OF SECTOR 
;GAP, OR FIRST SYNC. BYTE 
4h SECTOR GAP IS IN 


;WORD NO. CONTAINS 20 

RIGHT BYTE IS SECTOR GAP 

LEFT BYTE IS SYNC. BYTE 

dey WORD 1S WHAT IS GOING ON 
K. 


;1F “ERROR 6°° INSERTED BY 


;WRHEAD SUBROUTINE THEN 
;HEADER GOING ON DISK 


318 WRONG. 

sWORD NO 1 = CYLINDER NO 
;WORD NO 2 = SECTOR/TRACK 
sWORD NO 3 = KEY] 

sWORD NO 4 = 


KEY2 
+ WORD 1S WHAT 1S GOING ON 


s1F “ERROR 6°° INSERTED BY 
;WRHEAD SUBROUTINE THEN CRC WRITTEN 


SEQ 0248 


aon 
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10959 :0N DISK IS IN ERROR. 

10960 

10961 :GOOD DATA 1S WHAT SHOULD BE ON DISK 
10962 :BAD DATA IS WHAT IS GOING ON DISK 
10963 sWORD NO IS 5. 

10964 052776 000240 ERHDGP: NOP 

10965 ;1F “ERROR 6°’ INSERTED BY 

10966 sWRHEAD SUBROUTINE THEN HEADER 
10967 ;GAP GOING ON DISK IS WRONG. 

10968 

10969 ;WORD NO. GIVES WHICH OF 

10970 ;THE HEADER GAP WORDS 

10971 ;ARE WRONG. FOR EXAMPLE: 

10972 

10973 ;WORD NO 1 = FIRST _itaoen 

10974 GAP WOR 

10975 ‘BAD WORD IS WHAT 18 GOING ON DISK 
10977 053000 000240 HDESYN: NOP 

10978 ;1F “ERROR 6'' INSERTED BY 

10979 ;WRHEAD SUBROUTINE THEN LAST 

10980 ;HEADER GAP BYTE OR HEADER 

10981 :SYNC BYTE GOING ON DISK IS WRONG. 
10982 

10983 :WORD NO = 5 

10984 :BAD DATA IS WHAT IS GOING 

10985 :ON DISK, RIGHT BYTE IS HEADER 
10986 :GAP 0 BYTE, LEFT BYTE IS HEADER 
10987 :GAP SYNC. 

10988 

10989 

10990 053002 005737 002006 TST a#ERFLGS ;ARE ANY ERRORS DETECTED 

244 053006 001004 BNE FOUT SIF YES EXIT --2e---------------- > 
10993 053010 004137 051204 JSR R1,a#WRDATA :WRITE THE DATA <---------------- > 
10994 053014 000000 FNWORD: .WORD 0 :FORMAT COMMAND NO. OF DATA 

10995 053016 000000 -WORD 0 

10996 

10997 053020 FOUT: 

10998 053020 012605 MOV (SP)+,R5 ;;POP STACK INTO R5 

10999 053022 012604 MOV (SP)+,R4 ;;POP STACK INTO R4 

11000 053024 012603 MOV (SP)+,R3 ;;POP STACK INTO R3 

11001 053026 012602 MOV (SP)+,R2 :;POP STACK INTO R2 

11002 053030 012601 MOV (SP)+,R1 ::POP STACK INTO R1 

bet 053032 012600 MOV (SP)+,RO 3;POP STACK INTO RO 

11004 

11005 053034 000207 RTS PC 


el 


pow: es DSKLS CTRLRI 
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3383 | 
o 


FUN — 0 OO VFWN—$OOONCVFWN—ODOOnOYUFSWWN—O”DON 
So 
w 
Ww 
oOo 
= 
Ps 


053036 000000 


053046 


053050 053036 


7 
7 
7 
7 
4 053046 
1 051436 
0 001660 
0 000001 
5 000002 
0 000010 
0 000013 
000040 
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ps, eeeeeererereeereererrerereereeeeereeteeeketeeteneeereRteKeeeeees 


;*WRITE HEADER 


Sp ereeeereeeeereretereeeeeerereeerereeeretereteteteeeeeeeeeeeeeee 


. 

oe 

» 

Nm 
tote te ote 


WRHEAD: 


5$: 
6$: 


MAINT.REG. 

SIMULATED DISK 
BYTE COUNT 
WRITE WORD 
WORD COUNT 

0 ; 

0 , 

0 H 

0 : 

0 ; 

MOV (R1)4+,aMSCYL 

MOV (R1)+,aMSSECTR 

MOV (R1)+,a@SKEY1 

MOV (R1)+,@#SKEY2 

MOV (R1)+,a#SCRC 

MOV R1,-(SP) 3;PUSH R1 ON STACK 

MOV #SECGAP,R1 ;SIMULATED DISK INDICATOR 
MOV Q#RHMR,RO sRO NOW HAS MAINT. REG. ADDR. 
MOV #DMD ,aRO sSET DIAG. MODE IN RHMR 

MOV #2,R ;WORD COUNTER 

BIS #MSTCK,aRO sSET SECTOR FOR FIRST BYTE 
MOV MMSTCK'MCLK!DMD,@RO;SET SECTOR, CLOCK, DIAG. MODE, RESET INDEX 
BIT #MWR, ARO s;CHECK WRITE BIT IN MAINT. REG. 
BEQ 2$ 

SEC sSET CARRY 

ROR R3 sMOVE ONE FORWARD 

BR 3$ : 

cis sCLEAR CARRY 

ROR R3 s;MOVE ZERO FORWARD 

MOV #DMD ,aRO ;CLEAR CLOCK, SECTOR 

MOV #7,R2 ;BYTE COUNTER 

BIS #MCLK,aRO ;SET CLOCK 

BIT #MWR,aRO sCHECK WRITE BIT IN MAINT.REG. 
BEQ 5$ ;BRANCH IF ZERO 

SEC ;SET CARRY 

ROR R3 sMOVE ONE FORWARD 

BR 6$ 

CLC 

ROR R3 

MOV #DMD ,aRO sSET DIAG. MODE AGAIN IN RHMR 
DEC R2 

BNE 4% 


SEQ 0250 


aon 
~~ 
zm 


a ee ee ee ee ee 
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062 053212 005305 DEC RS 
065 053214 001342 BNE 1$ : CONTINUE 
065 053216 010321 MOV R3,(R1)¢4 
066 053220 005703 TST R3 
067 053222 001414 BEQ 7$ 
068 053224 012737 000001 047736 MOV #1 ,a#ERWORD 
069 053232 005037 001124 CLR aa$GDDAT 
070 053236 010337 001126 MOV R3,aa#$BDDAT 
071 053242 012737 104006 052766 MOV #104006 ,a#SEGPER 
ore 053250 000137 053656 JMP awi7$ :BRANCH OUI ---------------------- > 
074 053254 012702 000022 7$: MOV #18.,R2 COUNT NO. OF SECTOR GAP 
075 053260 012737 000024 047736 10$: MOV #20.,aMERWORD ;COUNT TO GIVE ERROR WORD ‘ 
076 053266 004737 050764 JSR PC ,aa#WRITE sWRITE SECTOR GAP 
077 053272 013721 050762 MOV a#WWORD,(R1)+* STORE SECTOR GAP WORD 
078 053276 001413 BEQ 11$ 
079 053300 160237 047736 SUB R2,a#ERWORD :1f NOT GET ERROR WORD NO. 
080 053304 005037 001124 CLR aa$GDDAT :GOOD WORD 
081 053310 013737 050762 001126 MOV a#WWORD ,a#$BDDAT;BAD WORD 
082 053316 012737 104006 052766 MOV #104006 ,a#SEGPER; STORE ‘ERROR 6°’ IN SEGPER 
085 053324 000554 BR 17$ :BRANCH OU] ----------------------- > 

4 
085 053326 005302 118: DEC R2 ;HAVE 18 WORDS OF ZEROS BEEN WRITTEN ? 
086 053330 001353 BNE 10$ :1f NOT DO SO 
088 :*AT THIS POINT THE SECTOR FOUND FLOP SHOULD 
ee :*BE HIGH. SO THAT THE HEADER SYNC BYTE CAN BE GIVEN 
091 stHOWEVER IN THE DRIVE TIMING ERROR TEST THE REST OF THE ROUTINE 
on :t1S ABORTED - HEADER SYNC BYTE IS NOT GIVEN 
094 053332 005737 002026 TST aM TESDTE :1S THIS A DRIVE TIMING ERROR 
095 053336 001147 BNE 17$ :BRANCH OUT IF YES 
096 053340 004737 050764 JSR PC ,a#WRITE sWRITE ONE SECTOR GAP 0 BYTE 
097 SAND ONE SYNC. BYTE = 230 
098 053344 013711 050762 MOV a#WWORD,(R1) :SAVE 0 BYTE AND SYNC BYTE 
099 053350 023721 047720 CMP QWRSYNC,(R1)* IF SYNC. BYTE RIGHT 
100 053354 001414 BEQ 12$ :1F YES BRANCH 
101 053356 012737 000024 047736 MOV #20.,a#ERWORD :1F NOT GET READY FOR ERROR 
102 053364 013737 047720 001124 MOV Q#RSYNC,A#$GDDAT:GOOD WORD 
103 053372 014137 001126 MOV -(R1),a#$BDDAT ;:BAD WORD 
104 053376 012737 104006 052770 MOV #104006, a#FSYNER: INSERT "ERROR 6°' IN FSYNER 
105 053404 000524 BR 17$ :BRANCH OU] -------------------------- > 
106 
107 053406 012702 000004 12$: MOV #4,R2 :FOUR HEADER WORDS 
108 053412 012703 053036 MOV #SCYL,R3 :POINTER FOR HEADER TABLE 
109 053416 012737 000005 047736 13$: MOV #5, a#ERWORD sERROR WORD NO SET 
110 053424 004737 050764 JSR PC ,amWRITE sWRITE 4 HEADER WORDS 
111 053430 013711 050762 MOV a#wwORD, (R1) ;STORE WRITTEN WORD 
112 053434 022321 CMP (R3)+,(R1)+ >1S 17 RIGHT? 
113 053436 001412 BEQ 14$ :1f GOOD CONTINUE 
114 :1F NOT GET READY FOR PRINT 
115 053440 160237 047736 SUB R2,a#ERWORD ‘WORD NO 
116 053444 014337 001124 MOV -(R3),a#$GDDAT :GOO0D DATA 
117. 053450 014137 001126 MOV -(R1),a#$BDDAT ;:BAD DATA 

| 


any 
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053454 012737 104006 052772 MOV + aa Q@#ERHEAD; INSERT ‘ERROR 6°° 
053462 000475 BR SBRANCH OUT eooocoecoceoococcceseseces > 
053464 005302 148: DEC R2 sARE 4 Se te WORDS DONE? 
053466 001353 BNE 13% ;1f NOT DO THEM 
053470 004737 050764 JSR PC ,a#WRITE WRITE CRC 
053474 3711 050762 MOV Q@#WWORD,(R1) STORE CRC 
053500 022137 052764 CMP (R1)+*,a#GCRC ;COMPARE GOOD CRC 
053504 001414 BEQ 208 :BRANCH IF GOOD 
053506 014137 001126 MOV -(R1),@#$BDDATA ;BAD CRC WRITTEN 
053512 013737 052764 001124 MOV @#GCRC ,a#$GDDAT ;GOOD CRC 
053520 012737 000005 047736 MOV #5 ,,a#ERWORD ;ERROR WORD NO 
053526 012737 104006 052774 MOV #194006. QWERCRC ; INSERT ERROR 6 
053534 006450 BR 17 TEX] eeneeeenen--------------- =e > 
053536 012702 000005 208: MOV #5,R2 NO OF HEADER GAP 
053542 012737 000006 047736 15%: MOV #6 ,aWERWORD ERROR WORD NO SET 
053550 004737 050764 JSR PC ,a#WRITE ;WRITE HEADER GAP 
053554 013721 050762 MOV Q#WWORD,(R1)*  ;STORE 
053560 001412 BEQ 16$ ;1f GOOD BRANCH 
053562 160237 047736 SUB R2 ,a#ERWORD ERROR WORD NO 
053566 005037 001124 CLR a#S$GDDAT ; GOOD ae 
053572 014137 001126 MOV =(R1),a#$BDDAT BAD DAT 
053576 012737 104006 052776 MOV #104006, O#ERHDGP; STORE "ERROR 6"" 
053604 000424 BR 17% SORANCH GUT eoccecersessncsesceesase > 
053606 005302 16$: DEC R2 ;ARE 5 HEADER GAP ZEROS DONE 
053610 001354 BNE 15$ 7 1f NOT BRANCH 
053612 004 37 050764 JSR PC ,aMWRITE 
053616 013,11 050762 MOV a#WWORD,(R1) 
053622 023721 047720 CMP @#RSYNC,(R1)¢ 
053626 001413 BEQ 17% SERLT sesttesesessasesenatetwnscons > 
053630 012737 000005 047736 MOV #5 ,A#ERWORD 
053636 014137 001126 MOV -(R1) ,a#$BDDAT 
053642 013737 047720 001124 MOV @#RSYNC ,A#SGDDAT 
053650 012737 104006 053000 MOV #104006 ,a#HDESYN 
053656 178: 
053656 012601 MOV (SP)+,R1 7:POP STACK INTO RI 


053660 000201 RTS R1 
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se eerererererererrererereererterserereereerenteeenerertereneeteeese 


> *SEARCH SECTOR 


so eteererereereerrerrererterereererenerereaeeeeeekenereneeeneeeene 


RO=RHMR ADDRESS 

R1=PASSED ARGUMENT (SECTOR SEARCHED FOR) 

R2=CLOCK COUNT (PER BYTE) 

R3=SECTOR COUNTER FROM R1 

;* RS=BYTES PER WORD COUNT 

;*BEBORE INDEX IS GIVEN TWO SECTOR CLOCKS ARE GIVEN TO RESET 
>*SECTOR PULSE IN CASE IT IS SET 

;*AT BEGINNING OF EACH SECTOR ONE SECTOR CLOCK HAS TO RISE 
: *BEFORE CLOCK THEN EVERY EIGHT CLOCKS ONE SECTOR CLOCK IS 
st IDENTICAL WITH CLOCK 

> *NUMBERING THE SECTOR CLOCKS AS FOLLOWS 

>*THE SECTOR CLOCK UNDER INDEX - 0 

3*THE NEXT - 1 

s*THE NEXT = 2 

see TC. 

>*THEN THE LAST SECTOR CLOCK IN ONE SECTOR HAS NUMBER - 608 
:*THE NEXT SECTOR THEN HAS 608 SECTOR CLOCKS 

>*THE NEXT SECTOR THEN HAS ANOTHER 608 SECTOR CLOCKS 


ses? 


eh PP RE A> DO 44-44 Ltt Pee Pe eee tt Le 


ee ee ee ee ee ee ee ee ee ce ee ae ce ee ed ee a ced ae ee ee el ee ee ee a ed as ee es a ee ce ed 
a ee ee ee ee nee ee eee ee 
OrFWN—OOO@NG VF WN $0 OONGO VFWN "OOO NFWWH—$OOONCUVFWWN—O”0O®W 


Ro Ra RG RAPS POM PSPS NY PONY NI NY NY Ny No @ ss sa a at as as St as Ss a St SS St ot a st a 


;*AND SO ON 

053662 000000 SECTR: 0 SECTOR SEARCHED FOR 

053664 012137 053662 SEARCH: MOV (R1)+, @MSECTR ;SAVE SECTOR SEARCHED FOR 
01 053670 010046 MOV RO,-(SP) ;;PUSH RO ON STACK 
02 053672 010146 MOV R1,-(SP) ;;PUSH R1 ON STACK 
03 053674 010246 MOV R2,-(SP) >;PUSH R2 ON STACK 
04 053676 010346 MOV R3,-(SP) 7;PUSH R3 ON STACK 
05 053700 010446 MOV R4,-(SP) : PUSH R4 ON STACK 
06 053702 010546 MOV R5,-(SP) ;PUSH R5 ON STACK 
07 053704 013700 001660 MOV aWRHMR, RO :NOW RO HAS MAINTENANCE REG. ADR. 
08 053710 013703 053662 MOV aHSECTR RS SECTOR COUNTER 
09 053714 012710 000001 MOV #DMD,  a@RO :SET DIAGNOSTIC MODE 
10 053720 052710 000010 BIS #MSTCK, ARO ;SET SECTOR CLOCK 
11 053724 042710 000010 BIC WMSTCK, ARO ;CLEAR SECTOR CLOCK 
12 053730 052710 000010 BIS #MSTCK, @RO ;SET SECTOR CLOCK 
13 053734 042710 000010 BIC #MSTCK, @RO CLEAR SECTOR CLOCK 
1 ;THE ABOVE TWO SECTOR CLOCKS ARE GIVEN FOR 
1 sRESETING SECTOR PULSE 
1 IN CASE IT STARTS SET 
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11217 053740 052710 000014 BIS #MINX'MSTCK,@RO ;SET INDEX AND SECTOR CLOCK 
11218 053744 012710 000001 MOV #0MD, arRO RESET INDEX AND SECTOR CLOCK 
11219 053750 005703 TST R3 s1F SECTOR REQUIRED JUMP OUT 
11220 053752 001461 BEQ 7$ BRANCH OF SECTOR ZERO REQUIRED 
11221 >*NOW THE 304 WORDS WILL START 

11222 

11223 

11224 

11225 :*FOR FIRST BYTE SECTOR CLOCK WILL GO HIGH THEN CLOCK WILL GO HIGH 
11226 >*BOTH WILL COME DOWN TOGETHER THEN SEVEN CLOCKS WILL BE GIVEN 
11227 7*;FOR SECOND BYTE AND ALL OTHER BYTES TILL NEXT SECTOR SECTOR CLOCK 
11228 s*WILL BE IDENTICAL WITH ONE CLOCK 

11229 

11230 

4434 7*ONE WORD ONLY 

11233 053754 012702 000010 1$: MOV #8., R2 sBYTE COUNTER 

11234 053760 012705 000002 MOV #2, R5 :BYTES PER WORD 

11235 053764 052710 000010 BIS #MSTCK,aRO :SET SECTOR CLOCK 

11236 053770 052710 000002 BIS #MCLK,aRO :SET CLOCK 

11237 053774 000402 BR 3$ BRANCH TO CLEAR SECTOR AND CLOCK 
11238 053776 052710 000012 2%: BIS WMSTCK'MCLK,@RO ;SET SECTOR AND CLOCK 

11239 054002 042710 000012 3$: BIC WMSTCK'MCLK,@RO ;CLEAR SECTOR AND CLOCK 

11240 054006 052710 000002 8$: BIS #MCLK, @RO :SET CLOCK 

11241 054012 042710 006002 BIC #MCLK, aRO :CLEAR CLOCK 

11242 054016 005302 DEC R2 ;BYTE COUNTER 

11243 054020 001372 BNE 8$ :BRANCH IF BYTE NOT COMPLETE 
11244 054022 012702 000007 MOV #7, R2 ;SETUP FOR SECOND BYTE 

11245 054026 005305 DEC R5 71S WORD COMPLETE? 

11246 054030 001362 BNE 2$ ;BRANCH IF NOT COMPLETE 

11247 710 GIVE SECTOR CLOCK AND CLOCK 
11248 

11249 

Hh ts :*NOW 303 WORDS ARE LEFT AND ALL ARE IDENTICAL 

11252 054032 012701 000457 MOV #303., RI sWORDS PER SECTOR COUNTER 

11253 054036 012705 000002 4$: MOV #2, RS :BYTES PER WORD COUNTER 

11254 054042 012702 000007 5$: MOV #7, R2 sBYTE COUNTER (CLOCK COUNTER) 
11255 054046 052710 000012 BIS MMSTCK'MCLK,Q@RO ;SET SECTOR CLOCK AND CLOCK 
11256 054052 042710 000012 BIC MMSTCK'MCLK,@RO ;CLEAR SECTOR CLOCK AND CLOCK 
11257 054056 052710 000002 6$ BIS #MCLK, aRO :SET CLOCK 

11258 054062 042710 000002 BIC #MCLK, aRO RESET CLOCK 

11259 054066 005302 DEC R2 3:18 BYTE COMPLETE? 

11260 054070 001372 BNE 6$ :BRANCH IF NOT COMPLETE 

11261 054072 005305 DEC R5 31S WORD COMPLETE? 

11262 054074 001362 BNE 5$ :BRANCH IF NOT 

11263 054076 005301 DEC be :1S SECTOR COMPLETE 

11264 054100 001356 BNE 4$ BRANCH IF NOT 

11265 054102 052710 000010 BIS #MSTCK,ARO ;SET SECTOR 

11266 054106 042710 000010 BIC #MSTCK,aRO :CLEAR SECTOR 

11267 054112 005303 DEC R3 :1S REQUIRED NO OF SECTORS COMPLETE 
11268 054114 001317 BNE 1$ BRANCH IF NOT 

11269 

11270 054116 7$: 

11271 054116 012605 MOV (SP)#,R5 >7POP STACK INTO RS 

11272 054120 012604 MOV (SP)+,R4 >:POP STACK INTO R4 


nr re 
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11273 054122 012605 MOV (SP)4+,R3 3;POP STACK INTO R3 

11274 054124 012602 MOV (SP)+,R2 3:POP STACK INTO R2 

11275 054126 012601 MOV (SP)+,R1 7:POP STACK INTO R1 

11276 054130 012600 MOV (SP)+,RO 7:POP STACK INTO RO 

11277 054132 000201 RTS R1 

11278 

11279 

11280 ppeeeeerererrrerereteeeetererererereteeeeneeeeeeteeeereneteseee 
11281 ;*READ ONE SECTOR OF DATA 

11282 ppeteeereeeeenerereneerrtrerererererereeeeeeeeeeeeeeeeee ee eee 
11283 

11284 054134 000000 RNO: 0 ;NO. OF WORDS READ 

11285 054136 000000 RCOM: 0 sEXTRA STORAGE 

11286 

11287 

11288 

11289 054140 012137 054134 REDATA: MOV (R1)+,a#RNO ;SAVE NO. OF WORDS ONLY FOR INFORMATION 
11290 054144 012137 054136 MOV (R1)+,a#RCOM sEXTRA WORD ONLY FOR INFORMATION 
11291 054150 010146 MOV R1,-(SP) 37PUSH R1 ON STACK 

11292 054152 005737 902024 TST ae TSECC 31S THIS AN ECC TEST 

11293 054156 001403 BEQ 1$ ;BRANCH IF NO 

11294 054160 012737 177777 045432 MOV #-1 ,a#TSECCG ; THESE BITS ARE TO GENERATE ECC 
11295 054166 012702 000402 1$: MOV #258. ,R2 7256 WORDS PER SECTOR 

11296 :PLUS 2 ECC WORDS 

11297 054172 012703 051534 MOV #DISK,R5 ;POINTE TO DISK SIMULATION 

11298 054176 012337 050526 2$: MOV (R3)+,a#WORD ;READY TO READ CONTENTS 

11299 054202 004737 050532 JSR PC ,a#READ 7 READ 

11300 054206 005302 DEC R2 318 256 WORDS DONE? 

11501 054210 001372 BNE 2$ :1f NOT BRANCH 

11302 054212 005737 002024 TST aa TSECC 71S THIS AN ECC TEST 

11303 054216 001012 BNE 4% ;BRANCH OUT IF YES 

11304 054220 005037 045432 CLR a#TSECCG ;NO MORE ECC BITS ARE TO BE GENERATED 
11305 054224 012702 000017 MOV #15. ,R2 sONE DATA GAP, 14 TOLERANCE GAP 
11306 054230 012337 050526 3$: MOV (R3)+,a#WORD ;READY TO READ CONTENTS OF WORD 
11307 054234 004737 050532 JSR PC ,@#READ ;READ 

11308 054240 005302 DEC R2 ; COUNT 

11309 054242 001372 BNE 3$ ;BRANCH IF 14 NOT DONE 

11310 0542464 4$: 

11311 054244 012601 MOV (SP)+,R1 3:POP STACK INTO RI 

11312 054246 000201 RTS RI RETURN 

11315 

11314 


i 
——— 
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11315 

11316 

11317 054250 RPVECT: 

11318 054250 104401 054256 TYPE ,65$ 2a TYPE ASCIZ STRING 

11319 054254 000421 BR 64% ;GET OVER THE — 

11320 33658: .ASCIZ /UNEXPECTED RPO4 INTERRUPT @ PC = 

11321 054320 64$: 

11322 054320 104402 TYPOC TYPE FROM PC 

11323 054322 012777 054250 125276 MOV #RPVECT ,ARPVEC RESTORE TRAP RPO4 VECTOR 
11324 054330 000000 HALT ; CHANGE TO CONTINUE 
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11325 .SBTTL SYSMAC LIBRARY ROUTINES 

11327 .SBTTL SCOPE HANDLER ROUTINE 

11329 ;,eeeeeeeerererereerteeeerereeeeteeeteeeeeeaeeeeeaeaeeteeeeeaeenee 
11330 :*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
11331 :*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
11332 :*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

11333 :*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

11334 #SW14=1 LOOP ON TEST 

11335 :eSwi t= INHIBIT ITERATIONS 

11336 *SWO9=1 LOOP ON ERROR 

11337 *SWOB=1 LOOP ON TEST IN SWR<7:0> 

11338 > *CALL 

11339 3 SCOPE ::SCOPE=101 

11340 

11341 054332 SSCOPE: ; 

11342 054332 104407 CKSWR :;TEST FOR CHANGE IN SOFT-SWR 

11343 054334 005037 047732 CLR @#NOSYNC :CLEAR FLAG FOR HEADER ERROR COMMANDS 
11344 054340 005037 902024 CLR aN TSECC :CLEAR FLAG FOR ECC TEST 

11345 :WHEN =177777 IT IS AN ECC TEST 

11346 [WHEN =O IT IS NOT AN ECC TEST 

4 

11348 054344 005037 045432 CLR aN TSECCG sEVEN IN AN ECC TEST EVERY CLOCK 

11349 :1S NOT TO GENERATE ECC 

11350 :1F =177777 GENERATE ECC 

11351 :1F =0 DO NOT GENERATE ECC 

11352 054350 005037 002026 CLR avTESDTE :DRIVE TIMING ERROR TEST 

11353 054354 1$: 

11354 054354 032777 040000 124556 1$: BIT #B1114,aSWR ;:LOOP ON PRESENT TEST? 

11355 054362 001111 BNE SOVER YES IF SW14=1 

11356 :WHAHASTART OF CODE FOR THE XOR TESTERMMAMM 

11357 054364 000416 $XTSTR: BR 6$ zr 1 RUNNING ON THE “‘XOR' TESTER CHANGE 
11358 ::THIS INSTRUCTION TO A NOP’ (NOP=240) 
11359 054366 013746 000004 MOV AERRVEC,-(SP) 3;SAVE THE CONTENTS OF THE ERROR VECTOR 
11360 054372 012737 054412 000004 MOV #5$,QWERRVEC § ;;SET FOR TIMEOUT 

11361 054400 005737 177060 TST a#177060 >: TIME OUT ON XOR? 

11362 054404 012637 000004 MOV (SP)+,@WERRVEC :;:RESTORE THE ERROR VECTOR 

11363 054410 000463 BR $SVLAD ::G0 TO THE NEXT TEST 

11364 054412 022626 5$: CMP (SP)+,(SP)4 : CLEAR THE STACK AFTER A TIME OUT 
11365 054414 012637 000004 MOV (SP)+,QMERRVEC ;;RESTORE THE ERROR VECTOR 

11366 054420 000423 BR 7$ LOOP ON THE PRESENT TEST 

11367 054422 6$::#NHHEND OF CODE FOR THE XOR TESTERMMMMA 

11368 054422 032777 000400 124510 BIT #81108 ,aSwR :;LOOP ON SPEC. TEST? 
11369 054430 001404 BEQ 2$ ::BR IF NO 

11370 054432 127737 124502 001102 CMPB = @SWR, STSTNM TION THE RIGHT TEST?  SwWR<7:0> 

11371 054440 001462 BEQ SOVER ::BR IF YES 

11372 054442 105737 001103 2$: TSIB = SERFLG SSHAS AN ERROR OCCURRED? 

11373 054446 001421 BEQ 3$ :iBR 1F NO 

11374 054450 123737 001115 001103 CMPB = SERMAX,SERFLG =: :MAX. ERRORS FOR THIS TEST OCCURRED? 
11375 054456 101015 BHI 3$ ty if NO 

11376 054460 032777 001000 124452 BIT #81109 ,aswR ::LOOP ON ERROR? 

11377 054466 001404 BEQ 4$ ::BR IF NO 

11378 054470 013737 001110 001106 7%: MOV SLPERR,SLPADR ::SET LOOP ADDRESS TO LAST SCOPE 

11379 054476 000443 BR SOVER 

11380 054500 105037 001103 4$: CLRB = SERFLG ::ZERO THE ERROR FLAG 
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11381 054504 005037 001212 CLR STIMES 22 CLEAR THE NUMBER OF ITERATIONS 10 MAKE 
11382 054510 000415 BR 1$ ESCAPE TO THE NEXT TEST 
113835 054512 032777 004000 124420 3%: BIT #B1T11,aSWR >: INHIBIT ITERATIONS? 

11384 054520 001011 BNE 1$ ;:BR IF YES 

11385 054522 005737 001100 TST SPASS ae FIRST PASS OF PROGRAM 

11386 054526 001406 BEQ 1$ INHIBIT ITERATIONS 

11387 054530 005237 001104 INC $ICNT SINCREMENT ITERATION COUNT 

11388 054534 023737 001212 001104 CMP STIMES ,SICNT ICHECK THE NUMBER OF ITERATIONS MADE 
11389 054542 002021 BGE SOVER ;;BR IF MORE ITERATION REQUIRED 

11390 054544 012737 000001 001104 1$: MOV #1,$1CNT + sREINITIALIZE THE ITERATION COUNTER 
11391 054552 013737 054622 001212 MOV SMXCNT ,STIMES ;SET NUMBER OF ITERATIONS TO DO 
11392 054560 105237 001102 $SVLAD: INCB STSTNM :;COUNT TEST NUMBERS 

11393 054564 011637 001106 MOV (SP) ,SLPADR 3;SAVE SCOPE LOOP ADDRESS 

11394 054570 011637 001110 MOV (SP) ,SLPERR ;;SAVE ERROR LOOP ADDRESS 

11395 054574 005037 001214 CLR SESCAPE 3;CLEAR THE ESCAPE FROM ERROR ADDRESS 
11396 054600 112737 000001 001115 MOVB #1, SERMAX ;;ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
11397 054606 013777 001102 124326 $OVER: MOV STSTNM,QDISPLAY ;;DISPLAY TEST NUMBER 

11398 054614 013716 001106 MOV SLPADR, (SP) 3;FUDGE RETURN ADDRESS 

11399 054620 000002 RT] 7 FIXES PS 

11400 054622 000004 SMXCNT: 4 7;MAX. NUMBER OF ITERATIONS 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


peeeeeeerereererereeeeeeeereteeteneeeeeeeeeeeeeeeeeeeeeeeeeeeee 
SaTHIS ROUTINE IS USED TO CHANGE A 16-BI1T BINARY NUMBER TO A 5-DIGIT 
>*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
;*NUMBER 1S POSITIVE OR ret y A SPACE OR A MINUS SIGN WILL BE TYPED 
;*BEFORE THE FIRST DIGIT OF 

;*REPLACED WITH SPACES. 


> *CALL: 
;* MOV 


3* TYPDS 


STYPDS: 


1$: CLR 


6$: 
7$: BIS 


8$: TSTB 


9$: CLRB 


NUM, = (SP) 


RO,-(SP) 


#20200, x sp) 
20(SP),R5 

1$ 

R5 

#'=,1(SP) 

RO 


#SDBLK ,R3 
#* ,(R3)+ 


R2 
fb: meena 


’ 


(SP) 

6$ 
1(SP),-1(R3) 
#'0,R2 
#’ ,R2 
R2,(R3)+ 
(RO)+ 
RO,#10 
2$ 

8$ 

R5 »R2 

6% 

($P)+ 


9$ 
~1(SP),-2(R3) 
(R53) 


(SP)+,R5 
(SP)+,R3 
(SP)+*,R2 


THE NUMBER. LEADING ZEROS WILL ALWAYS BE 


;;PUT THE BINARY NUMBER ON THE STACK 
3;G0 TO THE ROUTINE 


3;PUSH RO ON STACK 

7;PUSH R1 ON STACK 

;;PUSH R2 ON STACK 

3;PUSH R3 ON STACK 

3;PUSH R5 ON STACK 

3:;SET BLANK SWITCH AND SIGN 
3;GET THE INPUT NUMBER 

:;BR IF INPUT IS POS. 

:;MAKE THE BINARY NUMBER POS. 
>;MAKE THE ASCI] NUMBER NEG. 
3;ZERO THE CONSTANTS INDEX 
;;SETUP THE OUTPUT POINTER 
3;SET THE FIRST CHARACTER 10 A BLANK 
3;CLEAR THE BCD NUMBER 

3;GET THE CONSTANT 

>;FORM THIS BCD DIGIT 

:;BR IF DONE 

>; INCREASE THE BCD DIGIT By 1 


:;ADD BACK THE CONSTANT 
3;CHECK IF BCD DIGIT=0 
s:FALL THROUGH IF 0 
::STILL DOING LEADING 0°S? 
7:BR IF YES 


7; YES--SET THE SIGN 

;:MAKE THE BCD DIGIT ASCII 

;;MAKE IT A SPACE IF NOT ALREADY A DIGIT 
;;PUT THIS CHARACTER IN THE OUTPUT BUFFER 
7; JUST INCREMENTING 

:;CHECK THE TABLE INDEX 

+360 DO THE NEXT DIGIT 


; C11 
i WAS THE LSD THE FIRST NON-ZERO? 
72 YES--SET THE atl FOR TYPING 
;;SET THE TERMINATOR 

>;POP STACK INTO R5 

3;POP STACK INTO R3 

3;POP STACK INTO R2 


SEQ 0259 
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MOV (SP)+,R1 :;POP STACK INTO R1 
MOV (SP)+,R0 7;POP STACK INTO RO 
TYPE , SOBLK ;;NOW TYPE THE NUMBER 
MOV 2(SP),4(SP) 7 ADJUST THE STACY 
MOV (SP)+,(SP) 
RTl ; ;RETURN TO USER 
$DTBL: 10000 
000. 
100. 
10. 
$DBLK: .BLKW 4 


. 
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Per 4 -SBTTL TYPE ROUTINE 
11470 peeeeeererererrerereereteeererentereeetereeteerererAeeeereee tees 
11471 : ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 erie 
11472 *THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
11473 > *NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
11474 : *NOTE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
tet : *NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
7* 

11477 > *CAL 
11478 pel) USING A TRAP INSTRUCTION 
11479 TYPE »MESADR ;;MESADR 1S FIRST ADDRESS OF AN ASCIZ STRING 
11480 :+0R 
11481 ; TYPE 
11482 te MESADR 
11483 3¢ 
11484 
11485 055050 105737 001157 $TYPE: TSTB STPFLG 3:18 THERE A TERMINAL? 
11486 055054 100002 BPL 1$ 7:BR IF YES 
11487 055056 000000 HALT 7;HALT HERE IF NO TERMINAL 
11488 055060 000407 BR 3$ 7; LEAVE 
11489 055062 010046 1$: MOV RO,-(SP) 7; SAVE RO 
11490 055064 017600 000002 MOV a2(SP),RO 7:GET ADDRESS OF ASCIZ STRING 
11491 055070 112046 2$: MOVB (RO)+,-(SP) ;;PUSH CHARACTER TO BE TYPED ONTO STACK 
11492 055072 001005 BNE 4$ ::BR IF IT ISN'T THE TERMINATOR 
11493 055074 005726 TST (SP)+ ::1f TERMINATOR POP IT OFF THE STACK 
11494 055076 012600 60$: MOV (SP)+,RO ; RESTORE RO 
11495 055100 062716 000002 3$: ADD #2,(SP) ;;ADJUST RETURN PC 
11496 055104 000002 RT] 7 ;RETURN 
11497 055106 122716 000011 4$: CMPB WHT, (SP) >;BRANCH IF <HT> 
11498 055112 001430 BEQ 8$ 
11499 055114 122716 000200 CMPB WCRLF (SP) 7:;BRANCH IF NOT <CRLF> 
11500 055120 001006 BNE 5$ 
11501 055122 005726 TST (SP)+ POP <CR><LF> EQUIV 
11502 055124 104401 TYPE 7; TYPE A CR AND LF 
11503 055126 001223 $CRLF 
11504 055130 105037 055264 CLRB SCHARCNT >: CLEAR CHARACTER COUNT 
11505 055134 000755 BR 2$ 7;GET NEXT CHARACTER 
11506 055136 004737 055220 5$: JSR PC, STYPEC 7:G0 TYPE THIS CHARACTER 
11507 055142 123726 001156 6$: CMPB SFILLC,(SP)+ 7:18 11 TIME FOR FILLER CHARS.? 
11508 055146 001350 BNE 2$ 7:1f NO GO GET NEXT CHAR. 
11509 055150 013746 001154 MOV $NULL,-(SP) 7:;GET # OF FILLER CHARS. NEEDED 
11510 >;AND THE NULL CHAR. 
11511 055154 105366 000001 7$: DECB 1(SP) ;:DOES A NULL NEED TO BE TYPED? 
11512 055160 002770 BLT 6$ 7:BR IF ee ror THE NULL OFF OF STACK 
11513 055162 004737 055220 JSR PC, STYPEC 3:G0 TYPE AN 
11514 055166 105337 055264 DECB SCHARCNT 7;D0 NOT COUNT we A COUNT 
4h 055172 000770 BR 7$ 7; LOOP 

6 
Hake s;HORIZONTAL TAB PROCESSOR 
1151 
11519 055174 112716 000040 8$: MOVB w' ,(SP) ;;REPLACE TAB WITH SPACE 
11520 055200 004737 055220 9$: JSR PC, $TYPEC >; TYPE A SPACE 
11521 055204 132737 000007 055264 B1TB #7, $CHARCNT 7;BRANCH IF NOT AT 
11522 055212 001372 BNE 9$ >: TAB STOP 
11523 055214 005726 1ST (SP)+ 7;POP SPACE OFF STACK 
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CZRIGD.P11 10-SEP-79 11:00 TYPE ROUTINE SEQ 0262 
11524 055216 000724 BR 2% ;;GET NEXT CHARACTER 
11525 055220 105777 123724 STYPEC: TSTB asTPs ;;WAIT UNTIL PRINTER JS READY 
11526 055224 100375 BPL STYPEC 
11527 055226 116677 000002 123716 MOVB 2(SP) ,a$TPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 
11528 055234 122766 000015 000002 CMPB WCR,2(SP) 3:18 CHARACTER A CARRIAGE RETURN? 
11529 055242 001003 BNE 1$ ;;BRANCH IF NO 
11530 055244 105037 055264 CLRB $CHARCNT 3: YES--CLEAR CHARACTER COUNT 
11531 055 000406 BR STYPEX 7c EXIT 
11532 055252 122766 000012 000002 I$: CMPB WLF ,2(SP) 3:18 CHARACTER A LINE FEED? 
11533 055260 001402 BEQ STYPEX ;;BRANCH IF YES 
11534 055262 105227 INCB (PC )+ ;;COUNT THE CHARACTER 
11535 055264 000000 SCHARCNT: WORD 0 ;; CHARACTER COUNT STORAGE 
ER 055266 000207 $STYPEX: RTS PC 
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tees -SBTTL TTY INPUT ROUTINE 

11540 sy eteeeeeeeeeerrerereeeeteerereeeeeeterereeeeeeeetenetAeereteeeeee 
11541 -ENABL LSB 

11542 055270 000000 STKCNT: .WORD 0 >;NUMBER OF ITEMS IN QUEUE 

11543 055272 000000 STKQIN: .WORD 0 >; INPUT POINTER 

11544 055274 000000 $TKQOUT: .WORD 0 OUTPUT POINTER 

11545 055276 000011 $TKQSRT: .BLKB 9 z;1TY KEYBOARD QUEUE 

11546 055307 STKQEND=. 

11547 055310 EVEN 

11548 

11549 z*TK INITIALIZE ROUTINE 

11550 *THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 

tte 4 :*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 
11553 s*CALL: 

11554 :* JSR PC, STKINT 

sie :e RETURN 

6 . 

11557 055310 005037 955270 STKINT: CLR STKCNT :;CLEAR COUNT OF ITEMS IN QUEUE 
11558 055314 012737 055276 055272 MOV WSTKQSRT,STKQIN ;;MOVE THE STARTING ADDRESS OF THE 
11559 055322 013737 055272 055274 MOV STKQIN,STKQOUT ;;QUEUE INTO THE INPUT & OUTPUT POINTERS. 
11560 055330 012737 055360 000060 MOV ASTKSRV,QMTKVEC ;; INITIALIZE THE KEYBOARD VECTOR 
11561 055336 012737 000200 000062 MOV #200,aMTKVEC+2 ;;‘’BR' LEVEL 4 

11562 055344 005777 123576 TST asTKB ::CLEAR DONE FLAG 

11563 055350 012777 000100 123566 MOV #100,a$TKS > ENABLE TTY KEYBOARD INTERRUPT 
zee 055356 000207 RTS PC : RETURN TO CALLER 

6 

11566 z*TK SERVICE ROUTINE 

11567 :*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 

11568 :*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 
11569 :*]T IN THE QUEUE. 

11570 :*]F THE CHARACTER IS A “CONTROL=-C"’ (*C) STKINT IS CALLED AND 
Hal :*UPON RETURN EXIT IS MADE TO THE "‘CONTROL=C'' RESTART ADDRESS ‘OPERSCEL) 
11 . 

11573 055360 117746 123562 $TKSRV: MOVB a$TKB,-(SP) ::PICKUP THE CHARACTER 

11574 055364 042716 177600 BIC #°C177, (SP) ::STRIP THE JUNK 

11575 055370 021627 000003 CMP (SP) ,#3 ::1S8 17 A CONTROL C? 

11576 055374 001007 BNE 1$ :;BRANCH IF NO 

11577 055376 104401 056347 TYPE »SCNTLC :; TYPE A CONTROL=-C (*C) 

11578 055402 004737 055310 JSR PC,STKINT >; INIT THE KEYBOARD 

11579 055406 005726 TST (SP)+ 7;CLEAN UP STACK 

11580 055410 000137 041556 JMP OPERSEL 3; CONTROL C RESTART 

11581 055414 021627 000007 1$: CMP (SP) ,#7 ::1S 117 A CONTROL G? 

11582 055420 001004 BNE 2$ :;BRANCH IF NO 

11583 055422 022737 000176 001140 CMP #SWREG, SWR ::1S SOFT-SWR SELECTED? 

iene 055430 001500 BEu 6% ::G0 10 SWR CHANGE 

11586 055432 23: 

11587 055432 022737 000011 055270 CMP #9. ,STKCNT 3731S THE QUEUE FULL? 

11588 055440 001004 BNE 3$ > ;BRANCH IF NO 

11589 055442 104401 001216 TYPE » SBELL ssRING THE TTY BELL 

11590 055446 005726 TST (SP)+ >:CLEAN CHARACTER OFF OF STACK 
11591 055450 000451 BR 5$ prEXIT 

11592 055452 021627 000023 3$: CMP (SP) ,#23 s:1S 17 A CONTROL=S? 

11593 055456 001021 BNE 32% > BRANCH IF NO 
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CZRJIGD.P11 10-SEP-79 11:00 TTY INPUT ROUTINE SEQ 0264 
11594 055460 005077 123460 CLR astKs ::DISABLE TTY KEYBOARD INTERRUPTS 
11595 055464 005726 TST (SP)+ ::CLEAN CHAR OFF STACK 
11596 055466 105777 123452 31$: TST1B astKs WAIT FOR A CHAR 
11597 055472 100375 BPL 21$ :;LOOP UNTIL ITS THERE 
11598 055474 117746 123446 MOVB asTKB,-(SP) ::GET THE CHARACTER 
11599 055500 042716 177600 BIC #°C177, (SP) ::MAKE IT 7-BIT ASCII 
11600 055504 022627 000021 CMP (SP)+,#21 +315 IT A CONTROL-Q? 

11601 055510 001366 BNE 31$ :BRANCH IF NO 
11602 055512 012777 000100 123424 MOV #100,aSTKS > :REENABLE TTY KEYBOARD INTERRUPTS 
11603 055520 000002 RTI : RETURN 
11604 055522 005237 055270 328: INC STKCNT :;COUNT THIS CHARACTER 
11605 055526 021627 000140 CMP (SP), #140 ::1S 17 UPPER CASE? 
11606 055532 002405 BLT 4$ ;;BRANCH IF YES 
11607 055534 021627 000175 CMP (SP) ,#175 ::1S IT A SPECIAL CHAR? 
11608 055540 003002 BGT 4% ;;BRANCH IF YES 
11609 055542 042716 000040 BIC #40, (SP) ::MAKE IT UPPER CASE 
11610 055546 112677 177520 4$: MOVB (SP)+,a$TKQIN 33ND PUT IT IN QUEUE 
11611 055552 005237 055272 INC STKQIN UPDATE THE POINTER 
11612 055556 023727 055272 055307 CMP STKQIN, #$TKQEND 3360 OFF THE END? 
11613 055564 001003 BNE 5$ :;BRANCH IF NO 
11614 055566 012737 055276 055272 MOV #STKQSRT,STKQIN : RESET THE POINTER 
tee 055574 000002 5$: RT] 7 ;RETUR 
6 
11617 pp eeeererereeeereeeeereteeeeterteteeeeeeKeretKeeeteeetetereteeeese 
11618 :*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
11619 >*ROUTINE 1S ENTERED FROM THE TRAP HANDLER, AND WILL 
11620 :*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 
11621 >*CALL WHEN OPERATING IN TTY INTERRUPT MODE. 
11622 055576 022737 000176 001140 $CKSWR: CMP #SWREG, SWR ::1S THE SOFT-SwR SELECTED 
11623 055604 001124 BNE 15$ s:EXIT IF NOT 
11624 055606 105777 123332 TSTB astKs ::1S A CHAR WAITING? 
11625 055612 100121 BPL 15$ s:1f NOT, EXIT 
11626 055614 117746 123326 MOVB as$TKB,-(SP) sr YES 
11627 055620 042716 177600 BIC #*°C177, (SP) MAKE IT 7-BIT ASCII 
11628 055624 021627 000007 CMP (SP) #7 ::1S 17 A CONTROL-G? 
11629 055630 001300 BNE 2$ s:1F NOT, PUT IT IN THE TTY QUEUE 
11630 7; AND EXIT 
11631 
11632 pp eeeeerereereeeeeeeee reer ereseeer eee eekeeKKReeReeRKe RETAKE 
11633 >*CONTROL 1S PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
11634 s*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 
11635 :*CONTROL-G BEING TYPED, , AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 
11636 055632 123727 001134 000001 6$: CMPB SAUTOB,# >rARE WE RUNNING IN AUTO-MODE? 
11637 055640 001674 BEQ 2% >:;BRANCH IF YES 
11638 055642 005726 TST (SP)+ >:CLEAR CONTROL-G OFF STACK 
11639 055644 004737 055310 JSR PC, STKINT >:FLUSH THE TTY INPUT QUEUE 
11640 055650 005077 123270 CLR astKs ::DISABLE TTY KEYBOARD INTERRUPTS 
11641 055654 112737 000001 001135 MOvB #1, SINTAG :;SET INTERRUPT MODE INDICATOR 
11642 
11643 055662 104401 056361 TYPE »SCNTLG :;ECHO THE CONTROL-G (*G) 
11644 055666 104401 056366 $GTSWR: TYPE ,SMSWR >; TYPE CURRENT CONTENTS 
11645 055672 013746 000176 MOV SWREG,-(SP) ::SAVE SWREG FOR TYPEOUT 
11646 055676 104402 TYPOC >:G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
11647 055700 104401 056377 TYPE ,SMNEW :;PROMPT FOR NEW SWR 
11648 055704 005046 19$: CLR -(SP) >:CLEAR COUNTER 
11649 055706 005046 CLR -(SP) 77 THE NEW SWk 
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11650 055710 105777 123230 7$: TSTB asiKxs >: CHAR THERE? 

4h7 4 055714 100375 BPL 7% zz 1 NOT TRY AGAIN 

11653 055716 117746 123224 MOVB astKB,-(SP) 7 ;PICK UP CHAR 

51078 055722 042716 177600 BIC #*C177, (SP) ;;MAKE IT 7-BIT ASCII 

11656 055726 021627 000003 CMP (SP), #3 7:18 17 A CONTROL-C? 

11657 055732 001015 BNE 9% BRANCH IF NOT 

11658 055734 104401 056347 TYPE »SCNTLC 77 YES, ECHO CONTROL-C (*C) 
11659 055740 062706 000006 ADD #6,SP 7; CLEAN UP STACK 

11660 055744 123727 001135 000001 CMPB SINTAG,#1 > ;REENABLE TTY KEYBOARD INTERRUPTS? 
11661 055752 001003 BNE 8% BRANCH IF NO 

11662 055754 012777 000100 123162 MOV #100, ,a$TKS >;ALLOW TTY KEYBOARD INTERRUPTS 
tear 055762 000137 041556 8$: JMP OPERSEL 3: CONTROt-C RESTART 

11665 

11666 055766 021627 000025 9$: CMP (SP), #25 3:18 IT A CONTROL-U? 

11667 055772 001005 BNE 10% ;;BRANCH IF NOT 

11668 055774 104401 056354 TYPE »SCNTLU 3:YES, ECHO CONTROL=-U (“U) 
11669 056000 062706 900006 208: ADD #6,SP >: IGNORE PREVIOUS INPUT 

tony 056004 000737 BR 19% ::LET'S TRY IT AGAIN 

11672 

11673 056006 021627 000015 10$: CMP (SP),#15 ::18 117 A <CR>? 

11674 056012 001022 BNE 16% >:BRANCH IF NO 

11675 056014 005766 000004 TST 4(SP) s:YES, IS 11 THE FIRST CHAR? 
11676 056020 001403 BEQ 11$ >: BRANCH IF YES 

11677 056022 016677 000002 123110 MOV 2(SP) ,aSwRe 77SAVE NEW SWR 

11678 056030 062706 000006 118: ADD #6,SP 3; CLEAR UP STACK 

11679 056034 104401 001223 14$: TYPE ,SCRLF s:ECHO <CR> AND <LF> 

11680 056040 123727 001135 000001 CMPB SINTAG,#1 ; RE-ENABLE TTY KBD INTERRUPTS? 
11681 056046 001003 BNE 15% ;;BRANCH IF NOT 

11682 056050 012777 000100 123066 MOV #100,a$TKS > RE-ENABLE TTY KBD INTERRUPTS 
11683 056056 000002 15$: RTI : ;RETURN 

11684 056060 004737 055220 16%: JSR PC, STYPEC :;ECHO CHAR 

11685 056064 021627 000060 CMP (SP) ,#60 >: CHAR < 0? 

11686 056070 002420 BLT 18% > BRANCH IF YES 

11687 056072 021627 000067 CMP (SP) , #67 >: CHAR > 7? 

11688 056076 003015 BGT 18$ >:;BRANCH IF YES 

11689 056100 042726 000060 BIC #60,(SP)+¢ siSTRIP-OFF ASCII 

11690 056104 005766 000002 TST 2(SP) ::1S THIS THE FIRST CHAR 

11691 056110 001403 BEQ 17$ ; BRANCH IF YES 

11692 056112 006316 ASL (SP) 3:NO, SHIFT PRESENT 

11693 056114 006316 ASL (SP) as CHAR OVER TO MAKE 

11694 056116 006316 ASL (SP) sa ROOM FOR NEW ONE. 

11695 056120 005266 000002 178%: INC 2(SP) >: KEEP COUNT OF CHAR 

11696 056124 056616 177776 BIS -2(SP),(SP) ;7;SE?T IN NEW CHAR 

11697 056130 000667 BR 7$ ::GET THE NEXT ONE 

11698 056132 104401 001222 18$: TYPE ,SQUES si; TYPE ?<CR><LF> 

11699 056136 000720 BR 208% >:SIMULATE CONTROL=-U 

11700 -DSABL LSB 

11701 

11702 

11703 sseecererecereeereeercereseereseeeseeeeseresesereseeeereneresesenee 
11704 s®THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
11705 2 CALL: 
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CZRIGD.P11 10-SEP-79 11:00 TTY INPUT ROUTINE SEQ 0266 
11706 3* RDCHR 3;GET A CHARACTER FROM THE QUEUE 
11707 ;* RETURN HERE 3; CHARACTER IS ON THE STACK 
11708 3* z;WITH PARITY BIT STRIPPED OFF 
11709 : 

11710 

11711 056140 011646 SRDCHR: MOV (SP) ,-(SP) >;PUSH DOWN THE PC AND 

11712 056142 016666 000004 000002 MOV 4(SP),2(SP) se TWe PS 

11713 056150 005066 000004 CLR 4 (SP) ;:;GET READY FOR A CHARACTER 

11714 056154 005046 CLR -(SP) 3;PUT NEW PS ON STACK 

11715 056156 012746 056164 MOV #64$,-(SP) ;;PUT NEW PC ON STACK 

11716 056162 000002 RTI ::POP NEW PC AND PS 

11717 056164 64$: 

11718 056164 005737 055270 1$: TST STKCNT >;WAIT ON A CHARACTER 

11719 056170 001775 BEQ 1$ 

11720 056172 005337 055270 DEC STKCNT ;:;DECREMENT THE COUNTER 

11721 056176 117766 177072 000004 MOVB thee 4(SP) 23GET ONE CHARACTER 

11722 056204 005237 055274 INC $1KQ0U UPDATE THE POINTER 

11723 056210 023727 055274 055307 CMP Sreeout, #STKQEND” DID 17 GO OFF OF THE END? 
11724 056216 001003 BNE 2$ BRANCH IF NO 

11725 056220 012737 955276 055274 MOV #STKQSRI, $TKQOUT : gRESET THE POINTER 

11726 056226 000002 23: RTI > RETUR 

11727 se aeoneewenseninnsaaesunbeniiesteonreennnhelenednbanausyeiaienl 
11728 s*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 

11729 7 *CALL: 

11730 3% RDLIN 3s: INPUT A STRING FROM THE TTY 
11731 ;* RETURN HERE > ;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
tte 3 3° sr TERMINATOR WILL BE A BYTE OF ALL O'S 
11 

11734 056230 010346 SRDLIN: MOV R3,-(SP) 7; SAVE R3 

11735 056232 012703 056336 1$: MOV ASTTYIN,RS ::GET ADDRESS 

11736 056236 022703 056347 2$: CMP MSTTYINGS. RS ;;BUFFER FULL? 

11737 056242 101405 BLOS 4% ::;BR IF YES 

11738 056244 104410 RDCHR ::G0 READ ONE CHARACTER FROM THE TTY 
11739 056246 112613 MOVB (SP)+,(R3) 3;GET CHARACTER 

11740 056250 122713 000177 10$: CMPB #177. (R3) ::1S 17 A RUBOUT 

11741 056254 001003 BNE 3$ 7:SKIP IF NOT 

11742 056256 104401 001222 4$: TYPE ,SQUES sr: TYPE A '?° 

11743 056262 000763 BR 1$ 3: CLEAR THE BUFFER AND LOOP 

117464 056264 111337 056334 3$: MOVB (R3),9% 3:ECHO THE CHARACTER 

11745 056270 104401 056334 TYPE 9% 

11746 056274 122723 000015 CMPB #15, (R3)+ si: CHECK FOR RETURN 

11747 056300 001356 BNE 2$ ::LOOP IF NOT RETURN 

11748 056302 105063 177777 CLRB -1(R3) >:CLEAR RETURN (THE 15) 

11749 056306 104401 001224 TYPE ,$Lf 77 TYPE A LINE FEED 

11750 056312 012603 MOV (SP)+,R3 > RESTORE R3 

11751 056314 011646 MOV (SP) ,-(SP) s: ADJUST THE STACK AND PUT ADDRESS OF THE 
11752 056316 016666 000004 000002 MOV 4(SP),2(SP) a2 FIRST ASCI] CHARACTER ON IT 
11753 056324 012766 056336 000004 MOV @STTYIN,4(SP) 

11754 056332 000002 RT1 7 ;RETURN 

11755 056334 000 9$: -BYTE 0 3: STGRAGE FOR ASCII] CHAR. TO TYPE 
11756 056335 000 BYTE 0 3: TERMINATOR 

11757 056336 vans {+ $STTYIN: .BLKB 9. 7 RESERVE 9. BYTES FOR TTY INPUT 
11758 056347 136 006503 000012 S$CNTLC: .ASCIZ /*C/<15><12> :: CONTROL ‘'C'' 

11759 056354 052536 005015 000 $CNTLU: .ASCIZ /*U/<15>«<12> :: CONTROL * a 

11760 05636' 136 006507 000012 $CNTLG: .ASCIZ /*G/<15>«<12> >: CONTROL ‘'G 

11761 056366 005015 053523 020122 S$MSWR: .ASCIZ <15><12>/SWR = / 


a i mn ni nn ee ee + es 
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11762 056374 020075 000 

11763 056377 040 047040 053505 SMNEW: .ASCIZ / NEW = / 

11764 056404 036440 000040 

11765 sFROM THE TTY 
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be -SBTTL READ AN OCTAL NUMBER FROM THE TTY 

11768 py ereteeererererreererrerererreereeteetenereeeeererAeAKereeeteretes 
11769 7*THIS ROUTINE WILL {feno AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
11770 :*CHANGE IT TO BINAR 

11771 :*THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
11772 *OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A ‘'?"' WILL BE TYPED 
11773 [*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 
iors ;*THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 

s*CALL: 

11776 3 RDOCT ::READ AN OCTAL NUMBER 

11777 sf RETURN HERE 3;LOW ORDER BITS ARE ON TOP OF THE STACK 
BE 44 :* ::HIGH ORDER BITS ARE IN $HIOCT 
11780 056410 011646 SRDOCT: MOV (SP) ,-(SP) :;PROVIDE SPACE FOR THE 

11781 056412 016666 000004 000002 MOV 4(SP),2(SP) >: INPUT NUMBER 

11782 056420 010046 MOV RO,-(SP) >;PUSH RO ON STACK 

11783 056422 010146 MOV R1,-(SP) :;PUSH R1 ON STACK 

11784 056424 010246 MOV R2,-(SP) ::PUSH R2 ON STACK 

11785 056426 104411 1$: RDLIN >;READ AN ASCIZ LINE 

11786 056430 012600 MOV (SP)+,R0 3;GET ADDRESS Of 1ST CHARACTER 
11787 056432 010037 056536 MOV RO, 5$ >:AND SAVE IT 

11788 056436 005001 CLR R1 3; CLEAR DATA WORD 

11789 056440 005002 CLR R2 

11790 056442 112046 23: MOVB (RO)+,-(SP) > PICKUP THIS CHARACTER 

11791 056444 001420 BEQ 3$ ::1f ZERO GET OUT 

11792 056446 122716 000060 CMPB #°0O, (SP) > :MAKE SURE THIS CHARACTER 

11793 056452 003026 BGT 4% 3:18 AN OCTAL DIGIT 

11794 056454 122716 000067 CMPB #°7,(SP) 

11795 056460 002423 BLT 4$ 

11796 056462 006301 ASL R1 soug 

11797 056464 006102 ROL R2 

11798 056466 006301 ASL R1 22°46 

11799 056470 006102 ROL R2 

11800 056472 006301 ASL R1 37*8 

11801 056474 006102 ROL R2 

11802 056476 042716 177770 BIC #*C7, (SP) szsSTRIP THE ASCII JUNK 

11803 056502 062601 ADD (SP)+,R1 ::ADD IN THIS DIGIT 

11804 056504 000756 BR 2$ LOOP 

11805 056506 005726 3$: TST (SP)+ >: CLEAN TERMINATOR FROM STACK 
11806 056510 010166 000012 MOV R1,12(SP) :;SAVE THE RESULT 

11807 056514 010237 056546 MOV R2,$HIOCT 

11808 056520 012602 MOV (SP)+,R2 >;POP STACK INTO R2 

11809 056522 012601 MOV (SP)+,R1 ::POP STACK INTO R1 

11810 056524 012600 MOV (SP)+,RO :POP STACK INTO RO 

11811 056526 000002 RTI] > RETURN 

11812 056530 005726 4$: TST (SP)¢ sCLEAN PARTIAL FROM STACK 

11813 056532 105010 CLRB (RO) :SET A TERMINATOR 

11814 056534 104401 TYPE TYPE UP THRU THE BAD CHAR. 
11815 056536 000000 5$: WORD 0 moe vent gue 

11816 056540 104401 001222 TYPE ,SQUES oe CR" & 

11817 056544 000730 BR 1$ >: TRY AGAIN 

11818 056546 000000 $HIOCT: . WORD 0 s;HIGH ORDER BITS GO HERE 
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hy 2 4 .SBTTL ERROR HANDLER ROUTINE 
11821 ;eeeeeeererererererereretererereeeeeteeeeteteteeeeeneneeeeetetes 
11822 THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
11823 s*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
11824 :*AND GO TO SERRTYP ON ERROR 
11825 s*THE SWITCH OPTIONS PROVIDED BY THiS ROUTINE ARE: 
11826 :*SW15=1 HALT ON ERROR 
11827 7*Sw13=1 INHIBIT ERROR TYPEOUTS 
11828 *SW10=1 BELL ON ERROR 
11829 > *#SWO9=1 LOOP ON ERROR 
11830 > ®CALL 
at 3 ERROR N > ;ERRGR=EMT AND N=ERROR ITEM NUMBER 
11833 056550 SERROR: 
11834 056550 104407 CKSWR sTEST FOR CHANGE IN SOF T-SWR 
11835 056552 012737 177777 002006 MOV #-1,a#ERFLGS Se ERROR FLAG 
11836 056560 REGSAI: 
11837 056560 105237 001103 7$: INCB SERFLG 3:SET THE ERROR FLAG 
11838 056564 001775 BEQ 7$ ::DON'T LET THE FLAG GO TO ZERO 
11839 056566 013777 001102 122346 MOV STSTNM,QDISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG 
11840 056574 032777 002000 122336 BIT #B1110,aSWR ;;BELL ON ERROR? 
11841 056602 001402 BEQ 1$ NO - SKIP 
11842 056604 104401 001216 TYPE , SBELL :;RING BELL 
11843 056610 005237 001112 1$: INC SERTTL :;COUNT THE NUMBER OF ERRORS 
11844 056614 011637 001116 MOV (SP) , SERRPC ::GET ADDRESS OF ERROR INSTRUCTION 
11845 056620 162737 000002 001116 SUB #2, SERRPC 
11846 056626 117737 122264 001114 MOVB @SERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
11847 056634 032777 020000 122276 BIT #B1T13,aSwR ::SKIP TYPEOUT IF SET 
11848 056642 001004 BNE 20$ SKIP TYPEOUTS 
11849 056644 004737 056716 JSR PC, SERRTYP ::G9 TO USER ERROR ROUTINE 
11850 656650 104401 001223 TYPE , SCRLF 
11851 056654 208: 
11852 056654 005777 122260 2$: TST aswrk >; HALT ON ERROR 
11853 056660 100002 BPL 3$ ::SKIP IF CONTINUE 
11854 056662 000000 HALT :;HALT ON ERROR! 
11855 056664 104407 CKSWR :;TEST FOR CHANGE IN SOFT=-SwR 
11856 056666 032777 001000 122244 3$: BIT #B1T09,aSwWR ::LOOP ON ERROR SWITCH SET? 
11857 056674 001402 BFQ 4% 3:;BR IF NO 
11858 056676 013716 001110 MOV SLPERR, (SP) :: FUDGE RETURN FOR LOOPING 
11859 056702 005737 001214 4$: TST SESCAPE >: CHECK FOR AN ESCAPE ADDRESS 
11860 056706 001402 BEQ 5$ ::BR IF NONE 
11861 056710 013716 001214 MOV SESCAPE, (SP) :: FUDGE RETURN ADDRESS FOR ESCAPE 
11862 056714 S$: 
11863 056714 000002 RT] RETURN 
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SEQ 0270 


-SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


spe eeeeeeeeeereeererereeeereeeeeereeeeeeeeeeeeeeeeeeeeeeeeeeeeee 

;*THIS ROUTINE USES THE "ITEM CONTROL BYTE’’ (SITEMB) TO DETERMINE WHICH 
;*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE’ (SERRTB), 
;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 


1$: 


2$: 
3$: 


4$: 
5$: 


6$: 


7$: 


8$: 


, SCRLF 
RO,-(SP) 
RO 


a#SiTEMB,RO 
1$ 


SERRPC,-(SP) 


R 
#SERRTB,RO 
(RO)+,2$ 
3$ 


0 

,SCRLF 
(RO)+,4% 
5$ 


0 

-SCRLE 
R1,-(SP) 
(RO)+,R1 
9$ 
(RO)+,RO 
(RO)+ 


7$ 
a(R1)+,-(SP) 
8$ 
a(R1)+,-(SP) 
(R1) 

9$ 

,11% 

6% 

(SP)+,R1 
(SP)+,RO 

- SCRLF 

PC 


r*. 2 


::‘"CARRIAGE RETURN’ & “LINE FEED’ 
7; SAVE RO 
>;PICKUP THE ITEM INDEX 


37;1F ITEM NUMBER IS ZERO, JUST 

7; TYPE THE PC OF THE ERROR 

7; SAVE SERRPC FOR TYPEOUT 

7:ERROR ADDRESS 

3;G0 TYPE--OCTAL ASCII(ALL DIGITS) 
3;GET OUT 

;;ADJUST THE INDEX SO THAT IT WiLL 
oe WORK FOR THE ERROR TABLE 


3:FORM TABLE POINTER 

>:PICKUP “ERROR MESSAGE*’ POINTER 
:;SKIP TYPEOUT IF NO POINTER 

7; TYPE THE ‘ERROR MESSAGE" 
7:‘"ERROR MESSAGE'’ POINTER GOES HERE 
z7'"CARRIAGE RETURN’ & ‘LINE FEED" 
:;PICKUP ‘DATA HEADER’ POINTER 
:;SKIP TYPEOUT IF 0 

>; TYPE THE ‘‘DATA HEADER" 

::'‘DATA HEADER'' POINTER GOES HERE 
3: "CARRIAGE RETURN’ & “‘LINE FEED" 
3; SAVE R1 

::PICKUP "DATA TABLE'’ POINTER 

:;BR IF NO DATA TO BE TYPED 
>;PICKUP ‘DATA FORMAT’ POINTER 
33:"‘OCTAL’’ OR “DECIMAL” 

3;BR IF DECIMAL 

:;SAVE a(R1)+ FOR TYPEOUT 

3:GO TYPE--OCTAL ASCII(ALL DIGITS) 


7: SAVE a(R1)* FOR TYPEOUT 
3:G0 TYPE--DECIMAL ASCII WITH SIGN 
3;1S THERE ANOTHER NUMBER? 


3;BR IF NO 

7: TYPE TwWO(2) SPACES 
3; LOOP 

7: RESTORE R1 


7;RESTORE RO 
7:""CARRIAGE RETURN’ & “LINE FEED" 
N 


> RETUR 
3;TwO(2) SPACES 


n 5 ees) SAE 
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CZRJGD.P11 10-SEP-79 11:00 BINARY TO OCTAL (ASCI1) AND TYPE SEQ 0271 
Test -SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
11922 ppeeeeeeeeerreeererereerereeeererereereeereeeeKeeeeteeeeeneeeTEee 
11923 ;*THIS ROUTINE 1S USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
11924 s*OCTAL (ASCII) NUMBER AND TYPE IT. 
aes hela tan HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
>*CALL: 
11927 ie MOV NUM ,=-(SP) ;;NUMBER TO BE TYPED 
11928 ;* TYPOS 7;CALL FOR TYPEOUT 
11929 ze -BYTE N 3;N=1 TC 6 FOR NUMBER OF DIGITS TO TYPE 
11930 ;* -BYTE & 77M=1 OR O 
11931 :f 32 1=TYPE LEADING ZEROS 
sect :.* 3;0=SUPPRESS LEADING ZEROS 
** 
11934 > *$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
11935 > *$TYPOS OR $TYPOC 
11936 s*CALL: 
11937 3 MOV NUM ,-(SP) ;;NUMBER TO BE TYPED 
fh 22 TYPON 3;;CALL FOR TYPEOUT 
*« 
11940 s*STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
11941 7 *CALL: 
11942 3* MOV NUM ,-(SP) > NUMBER TO BE TYPED 
or ;* TYPOC 3;CALL FOR TYPEOUT 
44 
11945 057072 017646 000000 $TYPOS: MOV a(SP),-(SP) 7;PICKUP THE MODE 
11946 057076 116637 000001 057315 MOVB 1(SP), SOF ILL 7;LOAD ZERO FILL SWITCH 
11947 057104 112637 057317 MOVB (SP)+,$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 
11948 057110 062716 000002 ADD #2,(SP) :;ADJUST RETURN ADDRESS 
11949 057114 000406 BR $STYPON 
11950 057116 112737 000001 057315 S$TYPOC: MOVB #1,S0F ILL 7:SET THE ZERO FILL SWITCH 
11951 057124 112737 000006 057317 MOVB #6,S0MODE+1 3;SET FOR SIX(6) DIGITS 
11952 057132 112737 000005 057314 $TYPON: MOVB #5,S0CNT 3;SET THE ITERATION COUNT 
11953 057140 010346 MOV R3,-(SP) s SAVE R3 
11954 057142 010446 MOV R4,-(SP) SAVE R4 
11955 057144 010546 MOV R5,-(SP) 7; SAVE R5 
11956 057146 113704 057317 MOVB SOMODE* 1, RG 3;GET THE NUMBER OF DIGITS TO TYPE 
11957 057152 005404 NEG 
11958 057154 062704 000006 ADD 6. R4 7;SUBTRACT IT FOR MAX. ALLOWED 
11959 057160 110437 057316 MOVB R4 . SOMODE 7;SAVE 1T FOR USE 
11960 057164 113704 057315 MOVB SOFILL,R4 3;GET THE ZERO FILL SWITCH 
11961 057170 016605 000012 MOV 12(SP),R5 7;PICKUP THE INPUT NUMBER 
11962 057174 005003 CLR R3 3:CLEAR THE OUTPUT WORD 
11963 057176 006105 1$: ROL R5 >;ROTATE MSB INTO ‘'C’’ 
11964 057200 000404 BR 3$ 3:G0 DO MSB 
11965 057202 006105 2s: ROL R5 7;FORM THIS DIGIT 
119 057204 006105 ROL R5 
11967 057206 006105 ROL R5 
11968 057210 010503 MOV R5,R3 
11969 057212 006103 3$: ROL R3 3;GET LSB OF THIS DIGIT 
11970 057214 105337 057316 DECB SOMODE 3; TYPE THIS DIGIT? 
11971 057220 100016 BPL 7$ 7:BR IF NO 
11972 057222 042703 177770 BIC #177770,R3 3;GET mie OF JUNK 
11973 057226 001002 BNE 4% 7; TEST FOR O 
11974 057230 005704 TST RG 3; SUPPRESS THIS 0? 
11975 057232 001403 BEQ 5$ 7;BR IF YES 


CZRIGD.P11 10-SEP-79 11:00 BINARY TO OCTAL (ASCI 


N 5 | Rae pee Sar 

CRJGDO.RPOG/S/6 DSKLS CIRLAI MACYIT 30OAC1052) 10-SEP-79, 11:11 PAGE 275 

1) AND T 7 SEQ 0272 
11976 057234 005204 4$: INC — RG ;;DON'T SUPPRESS ANYMORE 0'S 


11977 057236 052703 000060 BIS #°0,R3 S:MAKE THIS DIGIT ASCII 

11978 057242 052703 000040 5$: BIS a’ [R3 ::MAKE ASCII IF NOT ALREADY 
11979 057246 110337 057312 MOVB = R3,, BS +: SAVE FOR TYPING 

11980 057252 104401 057312 TYPE ,8$ ::G0 TYPE THIS DIGIT 

11981 057256 105337 057314 7$: DECB © $OCNT >: COUNT BY 1 

11982 057262 003347 BGT 2$ ;3BR IF MORE TO DO 

11983 057264 002402 BLT 6$ ‘BR IF DONE 

11984 057266 005204 INC RG >: INSURE LAST DIGIT ISN'T A BLANK 
11985 057270 000744 BR 2$ ::G0 DO THE LAST DIGIT 

1 057272 012605 6$: MOV (SP)+,R5 >: RESTORE RS 

11987 057274 012604 MOV (SP) + ,RG SS RESTORE R& 

11988 057276 012603 MOV (SP) 83 RESTORE R3 

11989 057300 016666 000002 000004 MOV 2(5P), Lise) S!SET THE STACK FOR RETURNING 
11 057306 012616 MOV (SP)+" (SP) 

11991 057310 000002 RTI : ; RETURN 

11992 057312 000 8$: BYTE ::STORAGE FOR ASCII DIGIT 
11998 057313 000 YTE :: TERMINATOR FOR TYPE ROUTINE 
11995 057315 060 SOFILL: {BYTE >: ZERO FILL SWITCH 

11996 057316 000000 SOMODE: .WORD ::NUMBER OF DIGITS TO TYPE 


0 
-B 0 
994 057314 000 SOCNT: .BYTE . ;;OCTAL DIGIT COUNTER 


B 6 
feces $11 -RP04/5/6 DSKLS eter MACY11 30A(1052) 10-SEP-79 11:11 PAGE 274 


RJGD.P 10-SEP-79 11:00 TRAP DECODER SEQ 0273 
11997 .SBTTL TRAP DECODER 
11998 
11999 peeeeeeererrrereeeeerereeeeereeteetereeeeeee terete eAeterAe eee eee 
12000 SSTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
12001 ;tAND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
12002 : *OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
‘Soon :#G0 TO THAT ROUTINE. 
12005 057320 010046 $TRAP: MOV RO,-(SP) 37 SAVE RO 
12006 057322 016600 000002 MOV 2(SP),RO ::GET TRAP ADDRESS 
12007 057326 005740 TST -(RO) 3;BACKUP BY 2 
12008 057330 111000 MOVB (RO) ,RO + 3GET RIGHT BYTE OF TRAP 
12009 057332 006300 ASL RO sPOSITION FOR INDEXING 
12010 057334 016000 057354 MOV $TRPAD(RO),RO +: INDEX TO TABLE 
12011 057340 000290 RTS RO ::G0 TO ROUTINE - 
12012 
12013 
Sais 7:THIS 1S USE TO HANDLE THE ‘’GETPRI'’ MACRO 
12016 057342 011646 $TRAP2: MOV (SP) ,-(SP) ::MOVE THE PC DOWN 
12017 057344 016666 000004 000002 MOV 4(SP) ,2(SP) >;MOVE THE PSW DOWN 
ote 057352 000002 RTl : RESTORE THE PSwW 
$354] -SBTTL TRAP TABLE 
12022 :*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
12023 :*BY THE ‘‘TRAP'' INSTRUCTION. 
12024 
12025 ; ROUTINE 
12026 atten 
12027 057354 057342 $TRPAD: .WORD $TRAP2 
12028 057356 055050 $TYPE 3; CALL=TYPE TRAP#+1(104401) TTY TYPEOUT ROUTINE 
12029 057360 057116 $TYPOC ;;CALL=TYPOC TRAP#+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
12030 057362 057072 $TYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
12031 057364 057132 $TYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
fats 057366 054624 STYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
1 
fates 057370 055666 $GTSWR ;;CALL=GTSWR TRAP+6(104406) GET SOFT-SWR SETTING 
12 
12036 057372 055576 $CKSWR ;;CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOFT-SWR 
12037 057374 056140 SRDCHR ;;CALL=ROCHR TRAP4+10(104410) TTY TYPEIN CHARACTER ROUTINE 
12038 057376 056230 SROLIN ;;CALL=RDLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
12039 057400 056410 $RDOCT ;;CALL=RDOCT TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY 
12040 057402 042714 T.SCOP ;;CALL=SCOP1 TRAP#+13(104413) MY LOCAL SCOPES 
12041 057404 042766 CHECKT ;;CALL=CHECKD TRAP+14(104414) CHECK DVA,RDY,DPR,DRY 
12042 057406 043304 WAIT.T 53 CALL=WAT TRAP+15(104415) WAIT LOOP 


CZRJGDO,RPOS/5/6 DSKLS CTRLR 


CZRJGD.P11 


12046 

12047 057410 
12048 057416 
12049 057424 


12059 057460 
12060 
12061 


12062 
12063 057462 
12076 


12078 057544 


12086 057570 
12087 


10-SEP-7 


000776 


012737 


000122 


1 
9 11:00 


057554 
000340 


121474 
057560 
057462 


057554 


057560 
121426 


057410 
000340 


047520 


MACY11 


000024 
000026 


000024 


000024 


000024 
000026 


042527 


C 6 
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30A(1052) 10-SEP-79 11:11 
POWER DOWN AND UP ROUTINES 
-SBTTL POWER DOWN AND UP ROUTINES 
;,eeteeeeeerererererereeereterereretrrreeeeeeeeeeeeereeeeeeAeeeee ee 
>POWER DOWN ROUTINE 
$PWRDN: MOV MSILLUP ,a#@PWRVEC ;;SET FOR FAST UP 
MOV #340 ,a#PWRVEC+2 ;;PRIO:7 
MOV RO,-(SP) 3;PUSH RO ON STACK 
MOV R1,-(SP) >;PUSH R1 ON STACK 
MOV R2,-(SP) 3;PUSH R2 ON STACK 
MOV R3,-(SP) 3;PUSH R3 ON STACK 
MOV R4,-(SP) 3;PUSH R4& ON STACK 
MOV R5,-(SP) 7;PUSH R5 ON STACK 
MOV aSWR,-(SP) :;PUSH @SWR ON STACK 
MOV SP, SSAVR6 3; SAVE SP 
an ng #SPWRUP ,QM#PWRVEC ;;SET UP VECTOR 
HAL 
BR 72 >; HANG UP 
sp eteeeererererereeeereteetetetereretetekeeeeKeeeKeKeeeeetereeeese 
sPOWER UP ROUTINE 
SPWRUP: MOV M#SILLUP ,Q#PWRVEC ;;SET FOR FAST DOWN 
MOV SSAVR6,SP 3:GET SP 
CLR SSAVR6 :;WAIT LOOP FOR THE TTY 
1$: INC SSAVR6 ;;WAIT FOR THE INC 
BNE 1$ :;0F WORD 
MOV (SP)+,aSWR ;;POP STACK INTO aSwR 
MOV (SP)+,R5 7;POP STACK INTO R5 
MOV (SP)+,R4 :;POP STACK INTO R4 
MOV (SP)+,R3 >;POP STACK INTO R3 
MOV (SP)+,R2 3:POP STACK INTO R2 
MOV (SP)+,R1 :;POP STACK INTO R1 
MOV (SP)+,RO ;:POP STACK INTO RO 
MOV #SPWRON,QMPWRVEC ;;SET UP THE POWER DOWN VECTOR 
MOV #340,a#PWRVEC+2 ;;PRIO:7 
TYPE sREPORT THE POWER FAILURE 
$PWRMG: .WORD SPOWER :;POWER FAIL MESSAGE POINTER 
MOV (PC)+, (SP) ; RESTART AT BEGIN 
$PWRAD: gyons BEGIN : RESTART ADDRESS 
$I]LLUP: HALT 7; THE POWER UP SEQUENCE WAS STARTED 
BR .72 :; BEFORE THE POWER DOWN WAS COMPLETE 
SSAVR6: 0 ;;PUT THE SP HERE 
$POWER: .ASCIZ <15><12>''POWER" 
EVEN 


SEQ 0274 
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05 


PPE FAWN AIA NN NNNNND SS Ss OOOO 
WN —0 COONS VU FWN — 0 COON VW FWN— OOO UVFWNH—0 OOo 


057572 
057600 


060170 


10-SEP-79 11:00 


051127 


1 
052522 
044501 


040504 
047117 


_OoO-—-— -- O00 


MACY11 30A(1052) 


040524 
051124 
020122 
044522 
040524 


052123 
044501 


054105 


047111 
052123 


043516 


D 6 
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POWER DOWN AND UP ROUTINES 


;eeeereeerereeeeeeeerereetetererereretereteteteteteeereeneeeeereneAtere 


** 
;*ERROR AND MESSAGE TABLE CONDIMENTS 
* 


;eeeerenererereeererererererereeterrerterreneeeeeeneereeteeteneteeterere 


EM1: 


EM2: 


EM6: 


EM11: 


EM14: 


EM15: 


EM16: 


EM17: 


EM20: 


EM21: 


eASCIZ 


-ASC1Z 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


eASCIZ 


-ASCIZ 


-ASCIZ 


/WRONG DATA IN READING OR WRITING HARDWARE REGISTER/ 


7ERROR ON DATA COMMAND/ 


7ERROR ON WRITE HEADER AND DATA/ 


/CONTROLLER OR DRIVE STATUS/ 


/REGISTER FAILED/ 


/NON EXISTENT RECISTER, PROGRAM ABORTED./ 


/WAIT LOOP FAILED/ 


/WRITE CHECK FAILING/ 


/REGISTER FAILING/ 


/INTERRUPT FAILING/ 


SEQ 0275 


E 6 
JGDO,RP04/5/6 DSKLS CTRLR1 MACY11 30A(1052) 10-SEP-79 11:11 PAGE 277 
JGD.P11 10-SEP-79 11:00 POWER DOWN AND UP ROUTINES SEQ 0276 


060176 000 
105 


~~ 


C 
C 


EM22: -ASCI1 /ERROR ON DRIVES PRESENT -/<15><12> 


-ASCI1 /THE UNIT NO'S FOUND BY SETTING RHAS USING RHER1/<15><12> 


060304 aad 051105 006461 
060313 050 032124 020051 -ASCII /(14) DO NOT AGREE WITH THE UNIT NO'S FOUND/<15><12> 


1 
060367 102 020131 047514 -ASCII /BY LOOKING FOR ‘NED’ = 0 IN RHCS2 (BIT #12)/<15><12><15><12> 
060446 047516 042524 020072 .ASCII /NOTE: ON DUAL PORT SYSTEM, A DRIVE ON OTHER PORT WILt /<15><12> 


060526 053440 046111 020114 


060536 047516 020124 044507 -ASCI] /NOT GIVE 'NED', BUT WILL GIVE RHAS RESPONSES/<15><12> 
060544 042526 023440 042516 


051516 


1 

g 

6 020105 -ASCIZ /HENCE THERE WILL BE AN EXTRA DRIVE/ 
5 020105 
4 

1 

2 

6 

7 


oO 


041040 
042440 
042040 

000 


020113 EM24: sASCIZ2 /LOOK AHEAD REGISTER AT THE BEGINNING OF SECTOR IS IN ERROR/ 


RODRIG DG DG AG NPY DG NG NY DGD NY AG PNP NPY PNP NN NPP NINN NI POM NPIPY NINN PI POMPE P PEP Pef~efenslwrrwnrnnwnw wD 
ee ee ed ee ce ed ee ee ee ee ce ee ch ae ee cee ce ee ce cae cae cat ae ee ee cee ae ce ce nd ced ced cd ce ce a ce et ce ee ce ce ed ce ce ce et ae ce ce cae ced oe ed 


ee Le 


OOBNOUWEFWNM—OO 
So 
Co 
So 
So 
~m 
Nm 
o 
=> 
> 
ss 
Nm 
= 
So 
w 


2 
060657 114 04 


F 6 
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CZRIGD.P11 10-SEP-79 11:00 POWER DOWN AND UP ROUTINES SEQ 0277 


12200 060664 044101 040505 020104 


wm 
nN 
oO 
~ 
o 
o 
oO 
x 
o 
o 
oO 
wn 
—* 
—* 
o 
wn 
o 
> 

o 
= 

> 

oO 
oO 
i) 
oO 
a 
~ 
> 


III Ie) 
ooooo 
NOME 

Oo 

Load 

oO 

~“ 

nm 

~ 

oO 

me) 

o 

—- 

o 

~“ 

So 

> 

w 

— 

—_— 

~ 

oO 

we 

P a 

> 

o 


2 
as 16e8 EM25: -ASCIZ /LOOK AHEAD REGISTER IS IN ERROR/ 


oS 
0 
oO 
o 
oO 
~s 
w 
Nm 
o 
* 
~ 
Wn 
NnNo—-—o-"O 


7 
1 
1 
1 O44 
5 047522 

. 047105 €EM30: -ASCII] /CURRENT CYLINDER DOES NOT MATCH DESIRED CYLINDER REGISTER/<15><12> 
5 

3 


-ASCIZ /AFTER A SEEK AND INIT/ 


00 
061133 105 041503 Reree EM31: -ASCI1 /ECC GENERATED IS INCORRECT/<15><12> 


012 
061167 105 042526 054522 -ASCIZ /EVERY WORD ON THIS SECTOR IS THAT GIVEN IN ‘DATA USED''/ 


Oo 
Co 
— 
_ 
o 
uw 
_ 
o 
_ 
Oo 
uw 
Nm 
a" 
Oo 
oa 
So 
w 
_ 
_" 
oOo 
w 


eg es eg ee ee et et ee ed et ed 
MOMIMIMI PIPPI MMMM NSM MP POM fo Po fe fro fron fry 


POPPIN NYAG POMP NPP NPP PIMPIN PPP PEP PE POMPE PE Po fo po fore fe for n fr 


242 061246 020101 051525 042105 
12244 061256 047117 051040 aeeeis EM32: -ASCI1 /ON READ COMMAND, AFTER DATA AND ECC HAVE BEEN READ,/<15><12> 


012 
041503 051040 eASCI] /ECC REGISTERS OR RHER! ARE IN ERROR/<15><12> 
047440 020122 


Nm 
Nm 
w 
— 
So 
o 
—_ 
we 
wa 
So 
So 
P 
Nm 
uw 
So 
w 
oO 
Nm 
So 
_ 
_ 
o 
Oo 
> 
Nm 
w 
Nm 
Nm 


2255 061356 
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12256 061364 044122 051105 020061 

12257 061372 051101 020105 047111 

12258 061400 042440 051122 051117 

12259 061406 005015 

12260 061410 047117 054514 046040 -ASCII] /ONLY LOWER 11 BITS OF PATTERN REG. CAN BE READ/<15><12> 
12261 061416 053517 051105 030440 

12262 061424 020061 044502 051524 

12263 061432 047440 020106 040520 

12264 061440 052124 051105 020116 

12265 061446 042522 027107 041440 

12266 061454 047101 041040 020105 

12267 061462 042522 042101 005015 

12268 061470 044124 051511 051440 -ASCIZ /THIS SHOULD MATCH LOWER 11 BITS OF GOOD ECCI/ 
12269 061476 047510 046125 020104 

12270 061504 040515 041524 020110 

12271 061512 047514 042527 020122 

12272 061520 030461 041040 052111 

12273 061526 020123 043117 043440 

12274 061534 047517 020104 041505 

12275 061542 030503 000 

12276 061545 110 043511 020110 EM33: .ASCIZ /HIGH COUNT BIT NOT SET AFTER 38859 CLOCKS/ 
12277 061552 047503 047125 020124 

12278 061560 044502 020124 047516 


12282 061610 046103 041517 051513 
12284 061617 132 051105 Bessas EM34: -ASCIZ /ZERO DETECT BIT NOT HIGH WHEN 32 BIT ECC REG. HAS 21 ZEROS/ 


12294 061712 047520 044523 ogee EM35: -ASCI1 /POSITION REGISTER OR 11 BITS OF PATTERN REGISTER INCORRECT/<15><12> 


12301 061764 044507 123 051105 
12302 061772 044440 041516 051117 
12303 062000 042522 052103 005015 
12304 062006 047514 042527 020122 eASCI] /LOWER 11 BITS OF PATTERN REGISTER SHOULD MATCH LOWER/<15><12> 
12305 062014 030461 041040 052111 
12306 062022 620123 043117 050040 
12307 062030 052101 524 047122 
12308 062036 0510460 043505 051511 
12509 062044 042524 020122 044123 
12310 062052 052517 042114 046440 
12311 062060 052101 044103 046040 


nn in na a 


—_———— 
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1: 
| 
062066 053517 051105 005015 


0620746 030461 0410460 052111 eASCI1 = /11 BITS OF GOOD ECC1/<15><12> 


062122 040504 020124 047105 -ASC1Z2 /DAT ENVLOP GOOD POSITION AND N-CODE ZEROS ARE IN OCTAL/ 


062202 047440 052103 046101 


062211 117 020116 042522 EM36: -ASCIZ /ON READ COMMAND WITH NON-CORRECTABLE ERROR "DCK' AND "ECH" SHOULD BE SE 
062216 042101 041440 046517 


062304 044123 052517 042114 
062312 041040 020105 042523 


062322 052320 043517 040522 €EM37: .ASCI] /PROGRAM ERROR BIT #10 IN RHCS2 DID NOT SET/<15><12> 
062330 020115 051105 047522 
062336 020122 044502 020124 
062344 030443 020060 047111 
062352 051040 041510 031123 
062360 042040 042111 047040 
062366 052117 051440 05210 


062376 043111 050040 051 -ASCIZ = /1F POSITION REGISTER =10040 CR 10041, IT 1S GOOD/ 


062450 020123 047507 042117 
062456 00 


58 062457 122 053510 020103 €&M40: -ASCII1 /RHWC DID NOT = 0 UPON COMPLETION OF READ/<15><12> 


363 062514 047511 020116 043117 


367 062536 052 


020122 051127 eASCIZ /OR WRITE HEADER AND DATA/ 


040505 006504 
020105 042510 
] 


CZRJGDO ,RPO4/5/6 DSKLS tee MACY11 30A(1052) 10-SEP-79 11:11 
CZRIGD.P11 10-SEP-79 11:00 POWER DOWN AND UP ROUTINES 


12368 062544 042101 051105 040440 
12369 062552 042116 042040 052101 
12370 062560 000101 


1 6 
PAGE 281 


ne wn ey | 


J 6 
CZRIGDO,RPO4/5/6 DSKLS CTRLR1 MACY11 30A(1052) 10-SEP-79 11:11 PAGE 282 
CZRIGD.P11 10-SEP-79 11:00 POWER DOWN AND UP ROUTINES SEQ 0281 


CPHALT: .ASCIE /FATAL ERROR = SEE DOCUMENT LISTING/<15><12> 


eASCIIL / 1€15><12><207><377><377><207><377><377><207><377><377> 


-ASCI1 /THE CONTROLLER OR DEVICE HAS GONE OFFLINE, LOST/<15><12> 
062650 052116 047522 046114 


86 062706 046106 047111 026105 
4 062714 sae 051517 006524 


7 
8 
9 062723 047 042522 042101 -ASCI] /"READY', BECOME UNAVAILABLE, OR HAS STATUS BITS/<15><12> 
0 062730 023531 020054 042502 

1 062736 047503 042515 052440 

2 062744 040516 040526 046111 

3 062752 041101 042514 020054 

4 062760 051117 044040 051501 

5 062766 051440 040524 052524 

. 062774 020123 044502 051524 


98 063004 044127 041511 020110 eASCIZ /WHICH CANNOT BE CLEARED/ 
399 063012 040503 047116 052117 
400 063020 041040 020105 046103 
12401 063026 040505 042522 000104 


12402 

12403 063034 020040 020040 020040 SPACE8: .ASCII / / 

12404 063042 020040 000 SPACE2: .ASCIZ / / 

12405 

12406 

12407 063045 120 020103 020040 DH!: -ASCII = /PC TEST REG. GOOD RECEIVED/<15><12> 


124135 063110 044505 042526 006504 
2415 063117 040 020040 020040 eASCIZ / NO ADDR. DATA DATA / 


22 063170 041520 020040 020040 Dk2: eASCI1 /PC TEST WORD GOOD BAD /<15>«12> 


12426 063220 047507 042117 020040 


CZRIGDO,RPO4/5/6 DSKLS CTRLRI 


CZRIGD.P11 


065714 


10-SEP-79 11:00 


040502 


042510 


020103 
052040 
020040 
044514 
047117 
041440 
020040 


- 027124 


047117 
041440 
020040 


020040 


040440 


K 6 
MACY11 30A(1052) 10-SEP-79 11:11 PAGE 283 
POWER DOWN AND UP ROUTINES 


020104 


030522 
020040 


006440 
020040 


042510 
020040 
5 


051104 


DH11: 


DH14: 


DH15: 


-ASCIZ 


-ASCI1 


eASCIZ 


ASCII 


eASCIZ 


»ASCIZ 


/ 


/PC 


/PC 


NO 


TEST 


NO 


TEST 


NO 


TEST 


NO DATA DATA 


FAILING CONT. CONT. 


REG ADR RHCS1 = RHCS2 


FAILING CONT. CONT. 


REG ADR BAD REG RHCS1 


REG ADR / 


CONT. 


RHDS1 


CONT. 


RHCS2 


CONT. 


RHER1/ 


CONT . 


RHDS1 


SEQ 0282 


/<15><12> 


CONT. /<15><1 


RHER1/ 





CZRJGDO ,RPO4/5S 
CZRIGD.P11 


POE AE AER PU PONG PONY PO PPD * 2 OO ew SS | OOO 
DWWO VF WN —O OOnG VF WN —OOOnOviswnr—Oo0Oen~ 

Oo oS 

o 

e $ 

wa Nw 

. _ 

* o 


w 


064410 


/6 DSKLS CTRLRI 
10-SEP-79 11:00 


000040 


020065 


020040 
020040 


020056 
020103 


020040 


MACY11 30A(1052) 


020040 
052123 


020040 
020040 


020040 
020040 
5 


020040 
031123 


020040 
3 


020040 
020040 


020040 


044122 


DH16: 


DH17: 


DH20: 


10-SEP-79 
POWER DOWN AND UP ROU 


-ASCII 


-ASCIZ 


-ASCI1 


-ASCIZ 


-ASCI1 


eASCIZ 


/PC 


/PC 


1 
T 


1 
] 


L 6 
11 PAGE 284 
ES 


TEST WAIT 
NO PC 

TEST CONT. 
NO RHBA 
TEST CONT 
NO ‘eae 


BIT 


WANTED 


CONT. 


RHDB 


CONT 


RHER2 


REG REG 


ADDRESS CONT. 


CONT. CONT. 
RHWC RHCS1 
CONT CONT 
RHERS  RHAS 


SEQ 0283 
/<15><12> 
/ 
CONT. /<15><12> 
RH(S2/ 
CONT /<15><12> 
RHDS1 / 


A 6 
RJGDO, + Saadag + DSKLS ate MACY11 yg 4 10-SEP-79 11:11 PAGE 285 a 
JGD.P11 10-SEP-79 11:00 POWER DOWN AND UP ROUTINES SEQ 0284 


539 064416 051501 020040 020040 
064424 0446122 051504 020961 


000 
064435 120 020103 ar iece DH21: .ASCII /PC TEST CONT CONT CONT /<15><12> 


C 
C 





064472 020040 041440 047117 
064500 seed f 020040 006440 


0 064507 040 020040 020040 -ASCIZ / NO RHCS| RHAS RHDS1/ 


555 064544 020040 wah 042110 

557 064555 120 020103 array DH22: .ASCII /PC TEST RHAS RHCS2/<15><12> 
012 

sce7 064617 040 020040 020040 ~ASCIZ / NO UNITS  UNITS/ 


25 
2567 064646 020123 020040 047125 
2569 064660 041520 020040 erorey DH24: ~ASCII = /PC TEST RHDST BAD GOOD SECTOR SECTOR /<15><12> 


wr 
ooo 
ooo 
ene 
ANN 
——§ © 
oon 
ooo 
neu 
Sos. 
RSS 
ons 
ooo 
err 
NOOO 
Ww oe 
oon 
NSS 
ooo 
err 
Noo 
-—-OooO 
— 
NOOO 


020040 
051117 


020040 eASCIZ / NO CONT.  RHLA RHLA NO CLOCK / 


ANNs 
ow 
So 
oe 
er 
AN 
wr 
Nos 
oo 
Wn 
No 
-—-S 
os 
wo 
oo 
wn 
-—-o 
-So 
—sS 
nO 

So 
~ 
~m 
w 
~w 
Ww 


oon 
ooo 
ooo 
ene 
ANN 
Ws & 
moo 
ooo 
mrs 
oonm 
oowuw 
, or a) 
oow 
ooo 
Now 
Own 
oo 
*--—-o 
oOuw 


Go 00 OO 
wn— 
* 
~N 
N“ 
= 
So 
w 
~w 
— 
at 
o 
o 
~ 
So 
o 
w 
o 
o 
~m 
oS 
o 
= 
o 


oo 
w 
uw 
o 
— 
o 
oS 
~m 
So 
So 
= 
o 
So 
~m 
So 
So 
a 
o 
So 
= 
™~ 
w 
om 
o 


020113 
0650435 120 020108 age DH26: -ASCII = /PC TEST PC OF FAILING CONT. CONT. CONT. CONT. /<15><1 


Panu PAA Awnyiuiv 
Go Oo GD 
soon 

ooo So 
o cS o 
Www = 
oooo ~ 
w aw o 
oOwonrm So 
o oo So 
Nm NS ~w 
o oo So 
o-o-— oS 
enuf o a 
ooow So 
So oS oS 
w = = 
Nm = N 
oS uw uw 
Ps —s — 
So ~N o 
So So 
w Nm 
—_ oS 
w So 

> 

Oo 


+ oh th te Ay oe Ae Oe $8 tb oe 
é 3 
S 
o 
wu 
o 
w 
o 
o 
Nm 
oS 
oe 
Nm 
S 
o 
Nm 
So 
o 
~ 
o 
oOo 
w 
So 
o 
= 
Oo 


594 065100 043516 041440 047117 








CZRJGDO,RPO4/5/6 DSKLS CTRLRI 
CZRIGD.P11 10-SEP-79 11:00 


027124 020040 
047117 
020040 
020040 


020040 
053111 


020040 
047516 


020040 
020103 


020101 


020040 
042524 
020040 


065570 020040 


N 6 
MACY11 30A(1052) 10-SEP-79 11:11 PAGE 286 


041440 


006440 


020040 
020117 


042105 
020040 


020040 
020040 
5 


041040 
020040 


020040 


020040 


020040 
052123 
04752? 


POWER DOWN AND UP ROUTINES 


eASCIZ / NO 
DH27: -ASCII1 /PC TEST 

~ASCIZ / NO 
DH30: -ASCII = /PC TEST 

oASCIEZ 7 NO 
DH31: eASCII /PC TEST 


JSR 


PC OF 


JSR 


PC OF 


JSR 


WORD 


REG ADD RHCS1 


FAILING GOOD 


DATA 


REG 


REG. 


GOOD 


ADDRESS DATA 


GOOD BAD 


SEQ 0285 
RHCS2 RHDS1 RHERI / 
RECEIVED/<15><12> 
DATA / 
BAD /<15><12> 
DATA / 
CONT, CONT. CONT /<V$>«1 


sibel 


Tyce anak | DSKLS CTRLR1 MACY11 30A(1052) 10-SEP-79 1 
CZRJGD.P 10-SEP-79 11:00 POWER DOWN AND UP ROUT 


12651 065576 042122 020040 020040 


B 7 
1:11 PAGE 287 
INES SEQ 0286 


12659 065656 020040 020040 020040 eASCIZ / NO NO DATA DATA RHCS1 RHDS1 RHERI / 


000 
12670 065757 120 020103 aS tos DH32: eASCII = /PC TEST PC OF WORD GOOD BAD CONT. CONT. CONT. 


12681 066060 047117 wad SF 020040 
12683 066071 040 020040 020940 ~ASCIZ / NO JSR NO DATA DATA RHCS1 RHDS1 = RHERI 


12694 066172 042510 030522 020040 
12696 066202 041520 020040 ocorsy DH33: .ASCI1 /PC TEST PC OF WORD GOOD CONT. CONT. CONT. /<15><1 


WUVVDVVDVYNM VVVVUNMDVIVVVIVIVOVVVVVVVVUVVVUVVVVUVVVVVVVVVVVVVUD UV UV VOOOCOOCOOOND AN 


06 066276 020056 020040 005015 





nn 


. ¢ 
CZRJGDO,RPO4/5/6 DSKLS CTRLR1 MACY11 30A(1052) 10-SEP-79 11:11 PAGE 288 
CZRJGD.P11 10-SEP-79 11:00 POWER DOWN AND UP ROUTINES SEQ 0287 


707 066304 020040 020040 020040 eASCIZ / NO JSR NO DATA RHCS1 RHDS1 RHERI / 


000 
066405 120 020103 ae oeae DH34: -ASCI1 /PC TEST GOOD GOOD WRITTEN WRITTEN DATA /<15><12> 


TDDVODNDONDODDDVYVDODVND TDD 


012 
066477 040 020040 020040 -ASCIZ / NO ECCI ECC2 ECC! ECC2 USED / 


066556 052440 042523 020104 
066570 041520 020040 arstst DH35: -ASCI1 /PC TEST GOOD GOOD PATTERN POSITON GOOD RHERi = /<15><1 


F 
F 
P 
p 
p 
R 
R 
R 
R 
R 
R 
R 
R 
A 


066672 020040 020040 020040 ~ASCIZ / NO ECCI ECC2 REG.REG. POSITON REG. / 


000 
066773 120 020103 020040 DH36: .ASCII /PC TEST PC OF  RHMR POSITON PATTERN /<15><12> 
067000 020040 052040 051505 
067006 020124 020040 050040 


Ns 
o 
MR 





on 
~ 


ee ee ee ee ~ 


PEASE AGA GAGA FA oA GAGA 


dD 7 
RJGDO,RPOG/5/6 DSKLS CTRLR1 = MACY11 30A(1052) 10-SEP-79 11:11 PAGE 289 
RJGD.P11 10-SEP-79 11:00 POWER DOWN AND UP ROUTINES SEQ 0288 
2763 067014 020103 043117 020040 
2764 067022 051040 046510 020122 
2765 067030 020040 050040 051517 
2766 067036 052111 047117 050040 
2767 067044 052101 042524 047122 
2768 067052 006440 
2769 067055 040 020040 020040 -ASCIZ / NO JSR CONT. REG. REG./ 
2770 067062 020040 047040 020117 
2771 067070 020040 020040 045040 
2772 067076 051123 020040 020040 
2773 = 067104 041440 047117 027124 
2774 067112 020040 051040 043505 
1h be 067120 020056 020040 051040 
2777 =067132 041520 020040 020040 DH37: -ASCII = /PC TEST POSITON POSITON GOOD GOOD PATTERN DATA N-CODE/ 
2778 067140 020040 042524 052123 
2779 =067146 020040 020040 047520 
2780 067154 044523 047524 020116 
2781 067162 047520 044523 047524 
2782 067170 020116 047507 042117 
2783 067176 020040 020040 047507 
2784 067204 042117 020040 020040 
2785 067212 040520 052124 051105 
2786 067220 020116 040504 040524 
2787 067226 020040 020040 026516 
2788 067234 047503 042504 005015 
2789 067242 020040 020040 020040 -ASCIZ / NO ECC GOOD ECCI ECC2 ECC ENVLOPE ZEROS/ 
2790 067250 020040 047516 020040 
2791 067256 020040 020040 041505 
2792 067264 020103 020040 020040 
2793 067272 047507 042117 020040 
2794 067300 020040 041505 030503 
2795 067306 020040 020040 041505 
2796 067314 031103 020040 020040 
2797 067322 041505 020103 020040 
2798 067330 020040 047105 046126 
2799 067336 050117 020105 042532 
994 067344 047522 000123 
2802 067350 041520 020040 020040 DH40: «ASCII /PC TEST CONT./<15><12> 


1 
2806 067377 040 020040 020040 ~ASCIZ / NO RHWC/ 


807 067404 020040 047040 020117 
08 067412 020040 020040 051040 
44 067420 053510 000103 
+4 -EVEN 
813 067424 001116 002032 04240c DTI: -WORD $SERRPC,TSTNM,REGADR,SGDDAT ,$BDDAT ,0 
814 067432 001124 001126 000000 
815 067440 001116 002032 047736 Did: -WORD SERRPC,TSTNM,ERWORD,S$GDDAT,0 
816 067446 001124 000000 
817 067452 001116 002032 047736 ODT5: -WORD $SERRPC,TSTNM,ERWORD ,SGDDAT,S$BDDAT,0 
818 067460 001124 001126 000000 





A 
CZRJGDO,RPO4/5/6 DSKLS CTRLR1 MACY11 30A(1052) 10-SEP-79 11:11 PAGE 290 
CZRJGD.P11 10-SEP-79 11:00 POWER DOWN AND UP ROUTINES SEQ 0289 


12820 067466 00 002032 001 DT11: WORD SERRPC,TSTNM,SBDADR,CS1,CS2,DS1,ER1,0 


DT14: -WORD SERRPC,TSTNM,SBDADR,S$BDDAT,CS1,CS2,DS1,ER1,0 


002052 001200 0115: WORD SERRPC,TSTNM,STMP1,0 


12828 067540 001116 002032 001204 DT16: .WORD SERRPC,TSTNM,STMP3,$TMP1,$TMPO,$BDDAT ,0 
12829 067546 001200 001176 001126 


12831 067556 001116 002032 001710 DT17: .WORD SERRPC,TSTNM,BA,DB,WC,CS1,CS2,0 
12832 067564 001704 001706 001714 
12833 067572 001712 000000 


12835 067576 001 002032 001716 D120: .WORD $SERRPC,TSTNM,ER1,ER2,ER3,AS,DS1,0 
001730 001732 


002032 001714 DT21: -WORD SERRPC,TSTNM,CS1,AS,0S1,0 


6 
2 
6 
$ 
6 002032 000000 OT22: -WORD $ERRPC,TSTNM,O 

: 002032 001720 DT24: WORD SERRPC,TSTNM,DST,S$BDDAT,$TMP1,$1TMP2,$TMP3,0 
4 

6 

2 

6 

6 

2 


001200 001202 


002032 002014 DIT26: «WORD SERRPC,TSTNM,PCJSR,$BDADR,CS1,CS2,DS1,ER1,0 
001714 001712 


002032 002014 DT2?7: -WORD $ERRPC,TSTNM,PCJSR,REGADR,$GDDAT ,SBDDAT,0 
001124 001126 


f 
f 
U 
f 
f 
f 
f 
Y 
f 
f 
f 
f 
f 
f 
f 
: 
| 


" 
3 
co 
So 
o 
~N 
~N 
_ 
oOo 
o 
~ 
Nm 
Se 
Oo 


12849 067716 000000 


12851 067720 001116 002032 002014 D130: .WORD SERRPC,TSTNM,PCJSR,REGADR,$GDDAT ,$BDDAT ,0 
12852 067726 042402 001124 001126 


12854 067736 001116 002032 047736 D131: .WORD SERRPC,TSTNM,ERWORD,$GDDAT,$BDDAT,CS1,DS1,ER1,0 

12855 067744 001124 001126 001714 

12856 067752 001736 001716 000000 

12857 067760 001116 002032 002014 DT32: .WORD SERRPC,TSTNM,PCJSR,ERWORD,S$GDDAT ,SBDDAT,CS1,0S1,ER1,0 
12858 067766 047736 001124 001126 

12859 067774 001714 001736 001716 


12861 070004 001116 002032 002014 DT33: .WORD SERRPC,TSTNM,PCJSR,ERWORD,SGDDAT.CS1,DS1,ER1,0 
12862 070012 047736 001124 001714 


12864 070026 001116 002032 045426 D134: .WORD SERRPC,TSTNM,GECC1,GECC2,WECCT WECC2,DISK,0 
12865 070034 045430 052534 052536 


12867 070046 001116 002032 045426 D135: .WORD SERRPC,TSTNM,GECC1,GECC2,EC2,EC1,POSI71,ER1,0 


SRIEMIMIERMIMIEMIMIAIAIMItAtAtin 


12870 070070 001116 002032 002014 D136: .WORD SERRPC,TSTNM,PCJSR,MR,EC1,EC2,0 
2871 070076 001734 001744 001746 


2 07 
2873 070106 001116 002032 001744 D157: -WORD $ERRPC,TSTNM,ECT,POSITI,GECC1,GECC2,EC2 DATENV, ZC ODE ,0 
2 070114 045440 043426 045450 





LdRsGU.P11 10-SEP-79 11:00 POWER DOWN AND UP ROUTINES 


12875 070122 001746 045444 045446 
12876 070130 000000 


12878 070132 001116 002032 001126 D140: .WORD SERRPC,TSTNM,$BDDAT,O 


F 7 oii aah 
CZRIGDO,RPO4/S/6 DSKLS CTRLRT MACYIT 39A(1052)_ 10-SEP-79, 11:11 PAGE 291 
Ea 0290 
12879 070140 000000 


12906 070232 000 000 000 DF22: .BYTE 0,0,0,0 
12908 070236 000 000 000 DF24: .BYTE 0,0,0,0,0,0,0 


12911 070245 000 000 000 DF26: .BYTE 0,0,0,0,0,0,0,0 


12880 

12881 070142 000 000 000 DFI: -BYTE 0,0,0,0,0 

12882 070145 000 000 

12883 070147 000 000 001 DF2: -BYTE 0,0,1,0 

12884 070152 000 

12885 070153 000 000 001 DFS: -BYTE 0,0,1,0,0 

Seat 070156 000 000 

12888 070160 000 000 000 DFI1l: .BYTE 0,0,0,0.0,0,0 
12889 070163 000 000 000 

12890 070166 000 

12891 070167 000 000 000 DFI4: .BYTE 0,0,0,0,0,0,0,0 
12892 070172 000 000 000 

12893 070175 000 000 

12894 070177 000 000 000 DFIS5: .BYTE 0,0,0 

12895 070202 000 000 000 DF16: .BYTE 0,0,0,0,0 

12896 070205 000 000 

12897 070207 000 000 000 DFI7: .BYTE 0,0,0,0,0,0,0 
12898 070212 000 000 000 

12899 070215 000 

12900 

12901 070216 000 000 000 DF20: .BYTE 0,0,0,0,0,0,0 
12902 070221 000 000 000 

12903 070224 000 

12904 070225 000 000 QOO DF21: .BYTE 0,0,0,0,0 

12905 070230 000 000 : 
12912 070250 000 000 000 

12913 070253 000 000 

12914 070255 000 000 000 DF27: «.BYTE 0,0,0,0,0,0 
4d 070260 000 000 000 

12917 070263 000 000 000 DF30: .BYTE 0,0,0,0,0,0 
12918 070266 000 000 000 

12919 070271 000 000 001 DFZ1: .BYTE 0,0,1,0,0,0,0,0 
12920 070274 000 000 000 

12921 070277 000 000 

12922 070501 000 000 000 DOF32: .BYTE 0,0,0,1,0,0,0,0,0 


12923 070304 001 000 000 
12 000 000 000 oOF33: .BYTE 0,0,0,1,0,0,0,0 


22 000 000 000 DF34: .BYTE 0,0,0,0,0,0,0 





6 7 
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CZRIGD.P11 10-SEP-79 11:00 POWER DOWN AND UP ROUTINES SEQ 0291 


12931 070331 000 000 OOO DF35: .BYTE 0,0,0,0,0,0,0,0 


12934 070341 000 000 000 DF36: .BYTE 0,0,0,0,0,0 
12936 44 $ of 000 000. 000 DF37: .BYTE 0.0,0,0,0,0,0,0.0 
12938 070355 000 000 000 


12939 
12940 070360 000 000 000 OF4O0: .BYTE 0,0,0 
Sass 070364 -EVEN 


12943 000001 | END 





H 7 
CZRIGDO,RPOS/5/6 DSKLS ot MACY11 30A(1052) 10-SEP-79 11:11 PAGE 294 


CZRIGD.P11 10-SEP-79 11:00 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0292 
ABS = 000200 13948 

ACL == 000040 14478 

ACU == 100000 13838 

ADDMOD 000204 6604 1797 

ADTIMO 047342 10178 10234" 
AOE = 001000 1299 

AS 001732 1538# 3953 4021 6793 6851 12835 12838 

ATA == 100000 12878 3790 5386 6803 6825 8442 8589 8698 8811 
ATABLE 004224 16334 2106 

ATTENT 002016 1570# 2065* 2106* 4225 5383 6781 6849 8440 . 8587 8696 8809 
ATO) = =_: 000001 13214 ; 
AT1 = 000002 13220 

AT2 = 000004 13234 

A13 = =_: 000010 1324@ 

ATS == 000020 1325a 

AIS = =_- 000040 13268 

A16 = =_: 000100 13278 

A17 == 000200 13284 

Al6é == 000400 12624 3854 7040 7060 

Al7 = =: 001000 1263#@ 3854 7040 7060 

BA 001710 15278 87194 7208 =12831 

BAI = 000010 12324 3626 3631 6933 7052 7068 7543 9762 
BASECH 046356 660 101634 10240 

BEGIN 004244 659 1646# 10233 12080 

BEGIN2 004234 661 16448 

BITST 042404 1863 2232 2257 2333 2357 2381 2463 2489 2514 2539 2560 90478 
B1T0 = 000001 6194 6788 9504 9539 9541 

B1T00 = 000001 6094 619 

B11T01 = 000002 6084 618 

B1T02 = 000004 607# 617 

B1103 = 000010 6064 616 

B1104 = 000020 605# 615 

B1105 = 000040 6044 614 2440 

B1106 = 000100 6034 613 2440 

B1107 = 000200 602m 612 2440 

B1108 = 000400 6014 611 2441 11368 

B11T09 = 001000 6004 610 2419 2440 11376 11856 

BIT! = 000002 618# 9518 

B1T10 = 002000 599# 11840 

B1T11 = 004000 5984 11583 

BIT12 = 010000 5978 

B1113 = 020000 596# = =9534 9536 8611847 

B1T14 = 040000 595#@ 89511 11354 

B11T15 = 100000 5944 9506 9513 9520 9529 9531 

BIT2 = 000004 617« 

BITS = 000010 6164 

BI1T4 = 000020 615# 

BIT5 = 000040 6148 

BI1T6 = 000100 6154 

BI1T7 = 900200 6128 

B118 = 000400 oll" 

BI1T9 = 001000 6108 

BLT 042432 9053# 

BLT2 042454 9053 9054 9060" 


0 
BPTVEC= 000014 6268 
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CZRIGD.P11 10-SEP-79 11:00 CROSS REFERENCE TABLE -=- USER SYMBOLS SEQ 0293 | 
CA 001726 15368 
CAT 037116 8190 83214 
CC 001752 15464 
CHECKD= 104414 120414 
CHECKE 043156 5519 5629 5753 5981 6108 6234 7354 92188 
CHECKT 042766 4314 5239 5489 5602 5724 5843 5950 6077 6203 6320 6414 6764 6929 
esta beet 7451 7527 8131 8261 8392 8560 8665 8770 91664 9351 9451 
CKSWR = 104407 11342 «11834 =6.11855 Ss: 120368 
CLAREA 042650 5527 5637 5641 5761 5765 6287 6308 6378 6383 6431 6436 6505 6517 


CLDISK 042732 1824 1837 2064 2184 2224 2276 2400 2593 2767 3018 3085 3190 3256 


9805 10251 

CLR = 000040 12344 2786 2800 4422 4535 4666 4814 4944 5076 6789 7533 9153 

COMHD 3 047456 5957 6084 6210 6326 6419 6935 7054 7330 7457 8137 8267 8408 9357 
9456 9638 10348" 

COMPA 050530 10496* 10539 106114 10758* 

COMPAR 043626 2665 3053 3148 3891 3959 4027 4402 4455 4518 4566 4649 4693 4796 


6593 6718 7238 7372 7586 8461 8605 8714 8827 9376# 9659 9685 


COMWHD 052600 5499 5612 5734 10877# 

COUNTD 051176 10752# 10756* 10773 

CPHALT 062562 4315 5240 5490 5520 5603 5630 5725 5754 5844 5951 5982 6078 6109 
6204 6235 6321 6415 6765 6930 7049 7324 7355 7452 7528 8132 8262 
8393 8561 8666 8771 9352 9452 9619 123720 

CR = 000015 534# 11528 11538 

CRC 044140 5471 5581 5702 5826 5932 6059 6185 6302 6397 6912 7030 7305 7435 
8113 8243 8364 9334 9433 9489# 9592 

CRLF = 000200 5354 11499 11538 

CSF = 000002 1370# 13888 

Csu— = 000010 1372# 13908 4 

($1 001714 15314 3204 3216 3818 5859 9169 9173 9179 9221 9228 i2820 12823 12831 
12838 12844 12854 12857 12861 

(S2 001712 15284 3196 3225 3261 3276 3337 3405 3443 3463 6550 6681 6683 6817 
7171 7173 = 12820) »=-12823) 12831 =: 12844 

CYL 047616 5924* 5933 6051* 6060 6177* 6186 6294" 6303 6390* 6398 6905* 6913 7025* 
7031 7297* 7306 7428* 8105" 8114 8255* 8244 8352 8355" 3365 93272 9335 
9425* 9434 9586* 9593 103828 

DAKEAD 047672 10422 10435# 

DATENV 045444 9882# 10639* 10656* 10706" 10721* 12873 

DAWORD 047676 5930* 6057" 6183* 6395* 6910" 7028* 7303* 9332" 9430" 9591" 104368 

0B 001704 1525#@ 12831 

DCK = 100000 1305#@ 7391 9714 9719 9735 9738 

DCL = 000100 14488 

DCLEAR 002052 1605# 4095 

DDISP = 177570 5418 738 1677 

DENVL = 000200 1315# 

DE! = 000040 \277a 

DFF20 = 000002 12738 


CZRJGDO,RPO4/5/6 DSKLS CTRLRI 


CZRIGD.P11 10-SEP-79 11:00 
OF 070142 793 
DF11 070160 901 
DF 14 070167 932 
DF 15 070177 941 
DF 16 070202 952 
DFI7 070207 965 
DF2 070147 128834 
DF 20 070216 978 
DF21 070225 989 
DF22 070232 1004 
DF 24 070236 1025 
DF 26 070245 1051 
DF 27 070255 1066 
DFS 070153 881 
DF 30 070263 1079 
DF 31 070271 844 
DF 32 0703501 828 
DF 33 070312 811 
DF 34 070322 1097 
DF35 070331 1116 
DF 36 070341 1131 
DF 37 070347 1171 
DF4O 070360 1209 
DFS = 000001 1272a 
DH1 063045 788 
DH11 063313 893 
DH14 063473 924 
DH15 063673 938 
DH16 063724 946 
DH17 064067 957 
DH2 063170 875 
DH20 064252 970 
DH21 064435 983 
DH22 064555 999 
DH24 064660 1018 
DH26 065043 1042 
DH27 065246 1058 
DH30 065411 1072 
DH31 065554 834 
DH32 065757 817 
DH33 066202 802 
DH34 066405 1087 
DH35 066570 1107 
DH36 066773 1122 
DH37 067132 1159 
DH40 067350 1205 
DIGB = 000004 1274a 
DISK 051534 2604 
6380 
7017 
8342 
DISPLA 001142 7388 
DISPRE 000174 6424 
Dit = 100000 12448 
DL64 = 000020 1276# 
DMD = = 000001 1309# 


MACY11 30A(1052) 


10-SEP-79 


11:11 


J 7 
PAGE 296 


CROSS REFERENCE TABLE -=- USER SYMBOLS 


919 
128888 


1038 129084 


12914@ 
888 12885« 
129178 
852 129198 
869 129228 
12925# 
129288 
1188 §=12931# 
1148 12934# 
12936a 
129404 
907 12407# 
1192 §=12436# 
12456# 
124798 
124848 
12502a 
12422a 
12522a 
12542a 
12557# 
1031 12569# 
12589" 
12612a 
12630# 
12648¢ 
858 12670# 
126964 
127188 
1178 12738" 
1139 12760" 
127778 
128024 
2612 2667 
6525 6526 
7139 7145 
8483 9573 
1677* 1685* 
1685 
3194 3405 
2404 2407 


128818 


3493 
2428 


3496 
2783 


5652 5775 5909 
6538 6654 6660 
7158* 7282 7424 
10144* 10145" 10779 
3020 3100 3748 


6036 


108404 


3765 


6162 
6668 
8099 
11297 


385? 


6288 
6894 
8149 
12864 


6338 
6895 
8229 


3980 


SEQ 0294 


6073 


CZRJGDO,RPO4/5/6 DSKLS CTRLRI 


CZRIGD.P11 
DOG 036452 
DPR = 000400 
DRY = 000200 
DST 001720 
DSwR = 177570 
DS1 001736 
001740 
DTAGAP 052540 
DIE = 010000 
DISY = 001000 
D11 067424 
D111 067466 
D114 067506 
D115 067550 
D116 067540 
D117 067556 
DT2 067440 
D120 067576 
D121 067616 
DI22 067632 
D124 067640 
D126 067660 
D127 067702 
D13 067452 
D130 067720 
D131 067736 
D132 067760 
D133 070004 
D134 070026 
D135 070046 
D136 070070 
D137 070106 
D140 070132 
DvA = 004000 
ECDATA 045424 
ECH = 000100 
EC] = 004000 
ECORR 046050 
ECTEST 045462 
EC! 001744 
EC2 001746 
EMTVEC= 000030 
—M1 57572 
—M11 057745 
EM14 057776 


060016 


10-SEP-79 11:00 


am 
MACY11 30A(1052) 10-SEP-79 11:11 PAGE 297 
CROSS REFERENCE TABLE -- USER SYMBOLS 


128314 
128354 


10584 
918 
12820¢ 


128414 


12817# 


128544 
128578 


128674 
128704 


2291 
7062 
10069* 


8690 
ee ty 10635 10649 


6825 6859 8175 
4004 4381 4432 
6803 6823 6859 


6821 6857 8173 
12835 12838 12844 


10587 
128134 


3119 3204 3216 
9084 9169 9173 
10136* 10138* 10629* 
6071 6197 6410 


10640 10657 10707 
12873 


12873 
1776* 1818+ 
121164 


3531 
9228 


10631* 


6925 
10722 


3533 


10646* 


7044 


3541 


10648* 


7317 


3543 


10696* 


9347 


3571 


10700* 


9447 


——_—— 


3573 


107118 


9635 


' 
‘ 


SEO 0295 | 


3581 
10715* 


CZRJGDO,RPO4/5/6 DSKLS CTRLRI 


CZRJGD.P11 10-SEP-79 11:00 
EM16 006 945 
EMI7 060110 956 
EM2 057655 860 
EM20 060134 969 
—EM21 060155 982 
—EM22 060177 993 
EM24 060657 1015 
EM25 060752 1028 
—M30 061012 1071 
—mM31 061133 1084 
—EM32 061256 1101 
—m35 061545 1121 
—M34 061617 1134 
—m35 061712 1153 
EM36 062211 1176 
—M37 062322 1191 
—M4O 062457 1203 
EM6 057704 856 
ERCLFC 020702 4107 
4249 
ERCRC 052774 10907* 
ERCS2C 013546 2812 
2945 
ERFLG$S 002006 15594 
5769* 
6452 
7475 
397 
ERHDGP 052776 10908* 
ERHEAD 052772 10906* 
ERPOS 046046 100594 
ERR = 040000 12864 
ERRVEC= 000004 6224 
ERSTAR 047430 102514 
ERUNIT 047426 102504 
ERWORD 047736 3061 
4934 
7474* 
9396« 
11129* 
ER1 001716 1532a 
12867 
ER2 001722 15344 
ER3 001730 1537a 
EXT! = 000001 13504 
—xT10 = 000010 13534 
EXT2 = 000002 1351# 
ExT20 = 000020 1354a 
EXT4 = 000004 13520 
EXT40 = 000040 1355 
FEN = 000200 1376# 
FER = 000020 1294e 
FILLEC 046222 10120# 
FIRST 002034 15884 
FMT22 = 010000 14134 
5836 


ee 
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CROSS REFERENCE TABLE -- USER SYMBOLS 


3769 


12835 
12835 


832 121064 

21104 
4129 4143 4159 4169 4179 
4269 4279 4289 4306# 

1130* 

2834 2845 2855 2865 2875 
2968 2979 29978 

2768* 3341* 3355 5496* 5517 
5956* 5979 6083* 6106 6209+ 
6697" 6934" 6945" 6965 7053 
8146 8158 8266* 8276 8288 
9648 10419 10990 11835* 

1141* 

1118* 
0082 
6803 6823 6859 7566 8442 
1675* 1686* 1778* 1785* 1820+ 
3899 3967 4035 4410 4464 
5066 5111 5182 5414 63418 
8152* 8157" 8282* 8287+ 8469 
0523* 10543* 10547* 10569* 10589* 
1138* 11150* 12815 12817 12854 
3780 6867 7391 7494 12820 
7494 

1735* 

5229 5465 5481 5497 5575 
5924 5944 5985 6051 6071 


4189 


2885 
55351* 


12857 
12823 


4199 


2895 


5609* 
6325* 
7217* 
8476* 


8698 
11360* 


4575 

64468 

8490* 
11075* 
12861 
12835 


4209 4219 
2905 2914 
5627 5646+ 
6335 6347 
7329* 7352 
8491 8567+ 
8811 

11362" 11365* 
4656 4702 
6451* 6959 
8613 8722 
11079* i1101* 
12844 12854 
5696 §713 
6197 6238 


4229 


2924 
5731* 
6418+ 


7456* 
8672+ 


4804 
6964* 


8835 
11109* 
12857 


5732 
6294 


SEQ 0296 


48590 

74609* 

9390* 
11115* 


12861 
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6390 6410 6501 6568 6905 6925 7023 7044 7317 7449 7544 7657 7738 
7958 8105 8129 8235 8259 8352 8355 8380 8549 8568 8654 8673 8778 
9327 9347 9425 9447 9586 9635 9763 

FNWORD 053014 5470* 5580" 5701*  5825* 10994# 

FORMAT 051200 10753# 10772 

FOUT 053020 10991 10997# 

FRMAT1 034076 74238 

FSYNER 052770 10905* 109318 11104* 

FUTABL 002044 16014 3750 

GCRC 052764 5473 5583 5704 5828 7437 =—10916# #11125 = 11128 

GECC1 045426 9867" 9909 9995* 10128* 10144 12864 12867 12873 

GECC2 045450 9870# 9910 9996* 10129* 10145 12864 12867 12873 

GNS = Seeeee YJ 641 1702 1707 1712 1716 1720 1724 1728 1732 1755 1794 1810 1816 
1907 1911 1915 1919 1947 1951 1955 1959 2009 2016 2022 2110 2116 
2122 2151 215 2163 2189 2193 2197 2203 46 859 886 8966 8972 
8979 8983 8987 8994 8998 10166 10172 10189 10195 10201 10207 10213 10217 
10221 «10225 10231 10237 11320 12028 12029 12030 12031 12032 12034 12036 12037 
12038 12039 12040 12041 12042 

GO = 000001 12594 3030 3778 3866 3933 4001 4096 4375 4379 4430 4491 4495 4543 
4611 4614 4673 4771 4774 4821 4894 4906 4951 5026 5038 5083 5150 
5255 5854 5856 6811 7567 8581 8691 8804 9770 9800 10360 10889 

GRv = 000010 12754 

GTSWR = 104406 1742 396120344 

HADTMP 045450 9892# 10084 

HARDER 045442 98798 

HCCRCE 044542 767% 7755 7831 7908 7975 8038 9615# 

HCE = 000200 12978 9704 9708 9714 9719 

HCI = 002000 14114 3870 

HCRC = 000400 12984 9726 9729 9735 9738 

HDESYN 053000 10909* 10977# 11153* 

HDWSYN 051532 10838¢ 

HEADER 051506 10835a 

HEDGAP 047632 10375* 103974 10550* 

HEDSYN 047634 10376* 10408 10570* 10591* 

HEGAP 051520 10541 108374 

HT = 000011 5324 11497 11538 

1AE = 002000 13004 8585 8694 8807 

IE = 000100 12604 

ILf == 000001 12904 3780 

ILLEGL 002106 16194 3761* 3766 

1LR = 000002 12914 

10TVEC= 000020 6274 1659* 1660+ 

= 000100 12354 1828 2298 3117 3194 3224 3259 3274 3441 3461 3496 3615 3621 

3631 6548 6679 7068 7169 8425 9089 

1XE = 004000 13804 13984 

JP1 037432 8413 84204 

JP2 037446 8418 84248 

KEY! 047622 5928* 6055* 6181" 6298* 6393* 6908" 7026" 7301" 7431" 8109" 8239" 8360" 9350+ 
9428* 9589" 10384" 

KEY2 047624 5929* 6056* 6182" 6299" 6394" 6909" 7027* 7302" 7432 8110" 8240" 8361" 95351* 
9429* 9590" 10385« 

KIPARO= 172340 6984 

KIPAR1= 172342 6998 

KIPAR2= 172344 700# 

KIPARS= 172346 7014 

KIPARG= 172350 702a 


asin ditcieaiabanedl 
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KIPARS= 172352 7038 

KIPAR6= 172354 7048 

KIPAR7= 172356 705# 

KIPORO= 172300 687# 

KIPDR1= 172302 6884 

KIPOR2= 172304 689" 

KIPDR3= 172306 690" 

KIPDRG= 172310 691" 

KIPDRS= 172312 692" 

KIPDR6= 172314 693" : . 

KIPDR7= 172316 694" 

LA 001750 1545¢ 

LAD 042712 9061* 91308 9134 

LERR 042400 9044¢ 9050" 9091 

LF = 000012 533# 11532 11538 

LST = 002000 1282" «68175 = 8178 ~=—s 8305. = «8308 = 442 

MAKECY 045304 5202 54630 7615 7696 7777 7854 8072 8204 8515 9791" 

MASK 042376 9043" 9047" 9071" 9072 9073" 9076 9077 9078 

MCLK = 000002 1310# 52946 5295 5296 5297 5323 5324 5325 5326 5372 5373 5376 $377 
10095 10096 10103 10104 10502 10503 10505 10506 10508 10509 10624 10641 10693 
10708 11041 11051 «11236 «11238 = 11239-11240) 11241 11255. 11256) 11257-11258 

MCPE = 020000 1266" 

MHS = 001000 13784 1396 

MID 045274 9765* 9772" 

MIDDLE 045172 3805-9754" 

MINX = 000004 1311# 4738 4739 4881 4882 5014 5015 5262 8539 8540 8645 8646 8755 
8756 10358 10359 10887 10888 11217 

MMVEC = 000250 676" 

MOL = 010000 12844 2185 2199 

MPE = 000400 12378 

MR 001734 1539# 12870 

MRD = 0000 1313# 10622 10627 10635 10644 10652 

MSE = 000020 13730 

MSTCK = 000010 1312 4750 46899 5031 5256 5257 5259 5260 5262 5296 5295 5323 5326 
5358 46 5359 Ss«$361 «= «$362.—Ss«$376 = $377 ~—«:10501~—s:10508 ~=— 10505 10506 ~=— 10624 +=: 10693 -~—:11040 
11061 1127019277, -19212) 11213) 11217-11235) 11238) 11239-11255 -11256 11265-11266 

MWR = 000040 1314# 10694 10709 11042 11052 

MxF = 001000 1238¢ 3815 

NCODE 045434 9876" 

NCOUNT 045436 9877" 10075* 

NED = 010000 1241# 2614 10254 

NEM = 004000 1240" 7068 

NHS = 002000 1379" = 1397" 

NOPERA 002044 16028 3924 3992 

NOSYNC 047732 7421" 7640" 77218 7803* 7880" 7940" 8009 10423 10484# 10558 10582 11343 

NOUNIT 001776 1552 1976 2030" 2037 2087" 8882+ 

NOWORD 047664 6300* 7433" Blll* 8241" 8362" 104314 

NUNIT 002000 1554# 2037" 2038* 4150 

ocvL = 100000 14508 

OF 001724 1535¢ 

OFREV = 000200 14108 

OFSETC 002076 1615# 4761 

0F100 = 000004 1405# 

OF 200 = 000010 14068 

0F25 = 000001 14034 4762 4822 

0F400 = 000020 14078 


B 8 
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OF50 = 000002 14048 

OF 800 = 000040 14084 : 

OPERSE 041556 8962" 11580 11663 

OP] = 020000 13030 

OR = 000200 1236# 3272 3274 «= 3335) 3458 3474 = 35496 7169S 84249089 

Our 047702 10420 10427 10433 104388 

PAR = 000010 1293# ©2308) = 2311 

PAT = 000020 12334 ©2280 «= 22 

PCJSR 002014 15684 9166" 9167* 9218 9219 9615* 9616" 9793*  9794* 10063* 10064* 10348" 10349¢ 
10877" 10878* 12844 12847 12851 12857 12861 12870 

PGE = 002000 12398 5859 

PIE! = 100000 9830" 9979 9994 

PIE1O = 000100 98398 

PIE11 = 000040 9840" 9946 

PIEI2 = 000020 9841" 9979 

PIE13 = 000010 98428 

PIES = 000004 98438 

PIEIS = 000002 98448 

PIE16 = 000001 98458 

PIEI7 = 100000 98468 

PIE18 = 040000 98478 

PIEI9 = 020000 9848M 

PIE2 = 040000 9831" 9937 

PIE20 = 010000 98498 

PIE21 = 004000 9850" 9954 

PIE22 = 002000 9851" 9985 

PIE23 = 001000 9852" 9962 

PIE24 = 000400 9853¢ 9985 

PIE25 = 000200 98548 

PIE26 = 000100 9855# 

PIE27 = 000040 9856" 

PIE2B = 000020 98578 

PIE29 = 000010 98580 

PIES = 020000 9832" 9979 

PIE3O = 000004 9859" 

PIE31 = 000002 98608 

PIE32 = 000061 98614 9918 9926 

PIE4 = 010000 9833e 

PIES = 004000 98348 

PIE6 = 002000 9835« 

PIE? = 001000 9836" 

PIEB = 000400 98378 

PIE9 = 000200 9838" 

PIP = 020000 12854 4380 44314496 4544 04015 46744775 B23. 4907 4952 8039 5084 

PIRQ = 177772 5390 

PIRQVE= 000240 6330 

PKACK 002102 1617# 3021 

PLU = 020000 13824 13998 ; 

POSIT 045440 9878# 10019 10073 10081* 10082 10084 10127* 12867 12873 

PRBA 011366 2355*  2356M 

PRCA 012040 2537" © 2538e 

PRES! 011106 2255* 2256" 

PRCS2 011042 1861 2230" 22314 

PROST 011664 2461"  2462M 

PRE = (00020 1446# 

PRERI 011432 2379 2380# 
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PRER2 011730 2487* 24888 

PRERS 012104 2558* 25598 

PROF 011774 2512* 25138 

PROG = 001000 128148 2932 3129 3789 4246 6802 6822 6858 8174 8304 9191 

PRWC 011322 2331* 23328 

PRO = 000000 556m 

PRI = = 000040 557m 

PR2 = 000100 5584 

PRS == 000140 559" 

PRG = 000200 5604 

PRS = = 000240 5614 

PR6 == 000300 562m 

PR7 == 000340 5634 

PS = 177776 536" 537 1691* 8856* 8963+ 

PSEL = 002000 12644 

Psu — ss =_- 000001 14434 

PSW == 177776 5378 

PUTREG 042336 3195 3215 3260 3275 3336 3403 3442 3462 3768 3779 3816 5858 6334 
6549 6680 6792 6812 6850 7170 7389 7463 8145 8275 8481 9018# 9168 

9220 9647 10016 10022 10090 

PWRVEC= 000024 6284 1665* 1666* 12047* 12048* 12057* 12063* 12075* 12076* 

Pi2 045454 98948 9948* 9949* 9978 

P22 045456 9895# 9956* 9957* 9983 

P24 045460 98964 9964" 9965* 9984 

P3 045452 98934 9939* 9940" 9977 

RA 000200 6594 10227 

RAW = 000020 13914 

RCOM 054136 11285# 11290* 

RCYL 047722 104544 10492* 10527 

ROCHR = 104410 11738 12037 

RDHEAD 047740 10377 + =10492# 

RDLIN = 104411 11785 120384 

RDOCT = 104412 1757 8989 9000 10175 10197 12039# 

RDY = 000200 12614 2288 2291 3119 3204 3216 3531 3533 3541 3543 3571 3573 3581 
3583 3940 4008 7060 7062 7568 8188 8318 9084 9169 9179 9221 

READ 050532 10516 10520 10528 10530 10532 10534 10536 10577 10581 10616# 11299 11307 

READAT 002070 16124 6404 6919 7037 

READIN 002104 16184 3855 

RECALI 002050 16044 5017 

REDATA 054140 10435 112898 

REFOR 002072 16134 955 6082 6208 7328 8565 

REGADR 042402 1888* 2292* 2303* 2312% 2412 2434% 2793 2997" 3063* 3158* 3289" 3296* 33548 


12851 
REGSA1 056560 1776 = 118364 
REINTO 0603160 16264 3026 3033* 3047 3054 3106 #  3118* 3119" 3120" Z121* 8 s122* 831238 
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5155* 5156" 5169 5175 5236 5382* 5383* 5385* 5386*  5387* 5401 5407 5528 
5529 5536 5638 5639 5642 5643 5651 5762 5763 5766 5767 5774 5940 
6001 6067 6128 6193 6254 6384 6385 6406 6444 6500 6506 6507 651! 
6518 6519 6595 6635 6640 6647 6648 6720 6771 6785 6899 6900 6921 
6957 7120 7125 7132 7133 7194 7208 7240 7313 7374 7551 7563* 7564¢ 
7565* 7566* 7567* 7568+ 581 7587 7650 7651 7680 7731 7732 7761 7822 
7823 7899 7900 7951 7952 7981 8029 8030 8403 8415* 8416" 8420" 84218 
B424* 8425" 8426* 8427* 8428 8436+ 438* 8440" 8441* 8442" 8456 8462 8546 
8574 8584" 8585* 8586+ 8587"  8588*  8589* 8600 8606 8684 8694* 8695"  8696¢ 
8697*  8698* 8709 8715 8797 8807* 8808*  8809*  8810*  8811* 8822 8828 9343 
9443 9661 9686 

RELEAS 002054 16064 5141 

RESVEC= 000010 6234 

RETCL 002100 16164 4885 

RHAS 001656 15044 1882 1922 6780 6849+ 

RHBA 001634 14874 2355 2774* 3091* 3688 3850* 4064+ 


RHBAE 001700 15164 1806 
RHCA 001652 15024 2537 2781* 3098* 3853* 4O071* 4356* 4365* 4482* 4744* 5228* 5498* Soll* 


RHCC 001676 1512 4341 4744 9024 9806 9810 
RHCS1 001640 1497# 2255 2622 2776 3021* 3030* 3093"  3856*  3866* 4066* 4340" 4375* 44818 


RHCS2 001636 14884 1828 1862 1923 1982* 2094* 2230 2231* 2256" 2280* 2332" 2356* 23808 


RHCS3 =—001702 15178 

RHDB 001630 14854 1780 1826* 2772+ 2788 3192 3267* 3268* 3282 3283 3289 3296 3330* 
3344 3354 3399* 3409 3413 3448 3468 4062* 4097 10176 

RHDST 001644 1499# 2461 2778 3095* 3851* 4068* 4339" 5226* 5251 5271 5342 5486*  5600* 


RHDS1 001662 15064 3797 3931 3999 8177 8307 9150 

RHDT 001604 15074 1983 1985 1991 1993 1996 1998 2018 2096 2098 2124 2128 2130 
2133 213 2138 2140 2168 2170 2634 2636 2640 2642 2645 2647 

RHEC1 001670 15094 10019 

RHEC2 001672 1510 392 3986 3995 10013 

RHER1 001642 14984 1926 2282* 2379 2777 =3094* 4067* 6773 8683 8702 8724 8796 8815 
8837 9151 9703 9707 9713 9718 9725 9728 9733 9739 

RHER2 001646 1500# 2487 2779* 3096* 4069* 6775 

RHERS 001654 15034 2558 2782* 3099" 4072* 6777 

RHLA 091674 1511# = 4433 4546 4676 4825 4954 5086 5156 5270 5340 

RHMR 001660 1505# 2401 2783* 2784 3020* 3100" 3101* 3748* 3765" 3857" 3923* 3980" 4073+ 
GO74* 4094" 43368 4424% 4477# 4537# 45972 4668" 4733 8 4738* 4739" 4750" 8 4751 
4757* 4816* 4876 4881* 4882* 4899" 4900* 4946" 5007* 5014" 5015* 5031" 5032* 
5078* 5137* 5151* 5201* 5250 5429* 5853* 7559* 7614" 7695* 7776* 7853" 8071" 
8203" 8514" 8538 8539"  8540* 8579 8644* 8645* 8646" 8689 8754" 8755" 87568 
‘ToeF 9769" 9799 10067 10357* 10358* 10359* 10498 10771 10886" 10887" 10888* 11037 

RHOF 001650 1501# 2512 2780* 3097" 3852" 4070" 4762* 5229* 5497* 5610" S732* S851* 5944 
6071* 6197" 6318% 6410" 6925* 7044" 73178 7449" 7544% 8129 8259 8380" 8568+ 
B673* 8778" 93547 9447+ 9635" 97638 





CZRJIGDO,RPO4/5/6 SEpee OT oe 


CZRIGD.P11 

RHSN 001666 
RHWC 001632 
RH70 002040 
RH70CK 005370 
RKEY1 047726 
RKEY2 047730 
RMR = 000004 
RNCTR1 052576 
RNO 054134 
RNWAT1 052656 
RPVEC 001626 
RPVECT 054250 
RPO6 002036 
RSETR 047724 
RSYNC 047720 
RIN 006030 
RUNCTR 047454 
RUNWAT 047534 
SAVDT 002010 
SAVER 043424 
SAVSN Tonkas 
sc = 100000 
SCOP1 = 104413 
SCRC 053046 
SCYL 053036 
scl = 000100 
$C10 = 001000 
sc2 = 000200 
$¢20 = 002000 
$S(4 = =: 000400 
SEARCH 053664 
SECGAP 051436 
SECOTR 047620 
SECTR 053662 
SEECOM 002074 
SEGPER 052766 
SELECT 902002 
SELTST 007642 
SERCH 002056 
SETDSK 044414 
$1L0SZ2 002042 
SILOTB 051534 
SKEY1 053042 


33 
11025¢ 


3 
11032* 


maACY11 30A(1052) 


10-SEP-79 


CROSS REFERENCE TABLE -- USER SYMBOLS 


10198* 


112008 
5810 


108398 


E 8 
11:11 PAGE 304 

3040 3063 3090* 
3946 3969 3985 
4466 4486 4504 
4806 4831 4852 
5145 5162 5184 
5939* 5969 6066* 
7540* 8124" 82548 
9022 9024 9342+ 
1855 2219 3185 
10209 =: 111323* 

8055 8349 8385 
10567 10580 10590 
4254 4256 

3860 3878 3945 
4765 4782 4830 
7549 7573 8401 
4265 4267 

5382 7060 7062 
10833# 11036 

6179" 6180* 6296+ 
7430* 8107* 8108+ 
10367 10383" 

11200* 11208 

9798 

2041 2074 8871 
7945 8014 9567" 
1831 1834 1835 


8434 
11099 


4013 
4888 
8447 


8426 


62978 
8237+ 


3138 3158 3655 3849* 
3993 3995 4014 4037 
4554 4577 4606 4636 
4914 4936 4959 4982 


8402 8448 8471 8545+ 
3316 3390 3433 3518 


8780 
11102-11148 )~)—-11152 


4369 4388 4440 4485 
4913 4958 5020 5045 
8572 8592 8682 8701 


8584 


6391" 6392" 5906" 6907+ 
8238* 8358" 83592 9328+ 


7024* 
9329 


CZRJGDO,RPO4/5/6 DSKLS CTRLRI 


CZRJGD.P11 

SKEY2 053044 
SKI = 040000 
SN 001742 
SND1 005332 
SPACE2 0663042 
SPACES 063034 
SRO = 177572 
SRI = 177574 
SR2 = _-:177576 
SR3 = 172516 
SSECTR 053040 
SSYN 047630 
STACK = 001000 
START 004250 
STARTA 004472 
STKLMT= 177774 
SwR 001140 
SWREG 000176 
SwO = 000001 
$wOO = 000001 
$wO1 = 000002 
SwO2 = 000004 
$wO3 = 000010 
$w04 = 000020 
$wOS5 = 000040 
$w06 = 000100 
$wO7 = 000200 
$wO8 = 000400 
$wO9 = 001000 
Swi == 000002 
$w10 = 002000 
SW11 = 004000 
Swi2 = 010000 
Sw13 = 020000 
$W14 = 040000 
$w15 = 100000 
SWw2 = 000004 
SW3 = = 000010 
$W4 = = 000020 
SWw5 = = _- 000040 
Sw6 = = 000100 
Sw7 = = - 900200 
$w8 == 000400 
Sw9 == 001000 
TAGDTE 002030 
TBITVE= 000014 
TOF = 000040 
TESDTE 002026 


10-SEP-79 11:00 


110268 


MACY11 30A(1052) 
CROSS REFERENCE TABLE -- USER SYMBOLS 


11033* 


1684 


2700 


10525* 


1902 


F 8 
10-SEP-79 11:11 PAGE 205 


2701 


11376 
11583 


3370 
9132 


1939 


11352 


2702 =—:124038 


1684* 1740 
7485 8165 
11383 = 11583 


11622 = 11645 


6356 6470 


2687 4620 


1747 
82 
11622 


6983 


SEQ 0303 


1789 1902 1939 2687 3368 4620 
8497 9062 9132 9403 10004 10006 
11677" 11840 11847 11852 11856 12055 


7487 8167 8297 8499 9405 
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CZRIGD.P11 10-SEP-79 11:00 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0304 
TESTAD 041554 89604 
TIMCNT 043302 92564 9265 9270 
TKVEC = 000060 6314 11560" 11561* 
TAPILL 002022 1573#@ 3749" 3752 3754* 3759 3761 3762+ 
TOLGAP 052542 6289 7425 8100 8230 8343 10767 108448 
TOTALA 002020 1S71# 1932" 1934" 4079 = 4224 
TPVEC = 000064 632a 
TRAPVE= 000034 6308 1663" 1664 
TRE = 040000 1267" 4 3213 3818 7060 7062 8426 8584 
TRK 047570 10369* 10372a 
TRK1_ = 004000 13618 
TRK1O = 040000 13648 
TRK2 = 010000 1362 
TRK20 = 100000 1365¢ 
TRKG = 020000 1363" 
TRP 005772 1804 1813" 
TRIVEC= 000014 6258 
TSECC 002024 1575# 10776 11292 11302113448 
TSECCG 045432 98738 9997 10625 10637 10642 10654 10704 10719 10778* 10790" 11294* 11304* 11348 
TSTNM 002032 1586 1774" 1851" 1880" 1900* 2063" 2183" 2215" 2228 2253" 2275" 2329" 2353 

2377* 2399" = .2459e = 2485 «= 2510* «= 2535* «= 2556e «= 2591" «= 3016* «= 3084" «= 31B1e «= 3247" «= 33128 

3386" 3429* 3514" 3561* 3599% 3652* 3686* 3746 3843* 3919% 4057* 4333* 45948 

4730" 4873" 5004" 5134" 5199" 52228 5427 5453" 5564" 5684" 5808" 5901" 6028 

6154* 6281" 6285" 6377" 6497" 6630" 6762" 6892" 7005" 7114" 7275" 7419* 7525 

7612* 7639* 7693* 7720* 7774* 7801* 7851*  7878*  7939*  8007*  8069*  8096* 8201 

B226* 8339" 8512" 8534" 8640" 8750" 8968 12813 12815 12817 12820 12823 12826 

12828 «12831-12835. 12838_) = 12840 «12841 12844) «12847-12851 = 12854 «= 12857 = 12861 = 12864 

12867 12870 12873 12878 
TST! 005504 1752 «1771 ~—8931 
TST1O 011064 2221 2250# 
TST100 034710 7610# 
TST101 034744 7635# 
TST102 035066 7691" 
TST103 035122 7716# 
TST104 035244 7772e 
TSTI05 035300 77978 
TST106 035400 7849" 
TSTIO7 035434 7874e 
TST11 011130 22728 
TSTI10 035534 79358 
TSTI11 035662 8003« 
TST112 036002 8067" | 
TST113 036036 092M 
TST114 036452 81998 | 
TST115 036506 82228 
TST116 037116 8337" 
TST117 037744 85108 
TST12 011300 23268 
11120 040000 8532" | 
TST121 040332 86384 
TST122 040656 8748" 
TST1235 041206 8854" 
TST13 011344 23508 | 
TS114 011410 23748 
S115 011454 23970 
TST16 «011642 24558 | 


H 8 
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TST17 —- 011706 24818 

TST2 006152 18484 

TST20 =—011752 25078 

TST21 012016 25328 

TST22 012062 25534 

TST235. 01212 25898 

TST24 012534 27658 

TS125 9601356 2994 3014" 

TST26 0 =013722 30824 

TST27 4 =—014272 31798 

TS13 006236 1857 18778 

TST30 ©=6.014450 3187 3226 3245a 
TST31 §©014676 3253 3293 33114 
TS132 0 ©6015136 3318 3385" 

TST33 ©=015262 3392 3412 34278 
TST34 015562 3435 3494 35120 
TS1T35 015720 3520 3559# 

TS136 = §=016040 3542 3549 3582 3597s 
TST37 ©=6016216 3605 3636 36504 
TS14 006310 1886 18964 

TST40 =0016342 3670 36834 

TST41 016466 3703 37438 

TST42 =©016762 38418 

TS143. 017206 39188 

TS144 §=0017576 4055# 

TS145 020730 4304 43318 

TST46 = 021646 45928 

TS147 = 022.322 47288 

TST5 007656 2042 20594 8880 8890 
TS150 §=©022730 48718 

TST51 = 0.23274 4714 5002a 

TST52 023640 5132a 

TST53 = 024016 51978 

TST54 024052 52208 

TS155 024740 54258 

TS156 «= 024774 54518 

TS157 =—025304 5518 5541 55624 
TST6 010430 2182a 

TST60 025642 5628 5656 5682a 
TST61 026202 5752 5779 5806# 
TST62 026446 58998 

TS163 = 0027032 5980 6005 60268 
TS164 027416 6107 6132 61524 
TST65 030002 6233 6258 62798 
TST66 «= 0300342 6536 6357 6374" 
TS167 030706 6430 6471 6489" 
1$17 010774 2186 22144 

TS170 =: 031236 6599 66214 

TST71 = =—031544 6725 6759# 

TST72 =. 003.2134 6869 6889" 

™$173 =032500 6984 7003# 

TS174 =—03 3044 7011 7105« 

TS175 = 03.3452 7245 72708 

TS176 = 0034054 7353 7392 74130 
TS177 = 0.34404 7495 7522e : 
TINO = 000122 1774 =61851# «18808 19008 20638 21838 22158 22288 22538 


e27Sa 


23098 


235%e 


SEQ 0305 


>? 
23778 


GO | 
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23998 24598 26858 25108 25358 2556 25918 3016 30844 31818 3247# 33128 33868 
34298 835148 35618 35998 36528 36868 374668 38438 39198 4057 43338 45948 47308 


83398 85128 85348 86408 87508 

TuF = 000100 1375#@ 13938 

TY 047734 104864 

TYPDS = 104405 2013 2029 2113 4629 8862 8868 8878 8920 11908 12032« 

TYPE = 104401 1700 1705 1710 1714 1718 1722 1726 1730 1753 1792 1808 1814 1905 
1909 1913 1917 1945 1949 1953 1957 2007 2014 2020 2027 2108 2114 
2120 2149 2155 2161 2187 2191 2195 2201 269! 2692 2697 2700 2701 
2702 2711 4315 4625 5240 5490 5520 5603 5630 5725 5754 5844 5951 
5982 6078 6109 6204 6235 6321 6415 6765 69530 7049 7324 7355 7452 
7528 8132 8262 8393 8561 8666 8771 8857 8863 8876 8879 8918 8921 
8964 8970 8976 897 8981 8985 8992 8996 9352 9452 9619 10164 10170 
10187 «10193-10199 10205. 10211 Ss 10215.) 10219): 10223) 10229) 10235) Ss: 11318 =611459 )—-11502 
11577, 11589) 11643) 1164411647) 11658 =. 111668 )=— 11679-11698) = 11742117450 1174911814 
11816 §=11842 =611850) =—-11872) «11889-11891 -11894 Ss -11896)=—-11911) =) -11916) =) 11980) »=— 12028 §=12077 

TYPOC = 104402 1799 2019 2119 2125 8969 8975 10169 10192 10204 10210 10228 11322 11646 
11880 11904 12029# 

TYPON = 104404 120314 

TYPOS = 104403 2694 2707 = 12030# 

T.SCOP 042714 9132# 12040 

UN 006226 1861* 1862* 18644 

UNIT 001774 1551# 1759" 2036* 2043* 2069 2086* 2088 2112 2231 2256 2297 2332 2556 
2380 2462 2488 2513 2538 2559 2787 2803 2829 3112 3116 3193 3223 
3258 3273 3334 3440 3460 3495 3614 3620 3625 3630 3988 4089 4138 
4423 4536 4628 4667 4815 4945 5677 6547 6678 6790 7067 7168 7534 
8861 8884 8889* 9067 9154 

UNITS 001754 15504 1969 1974 2036 2081 2666 2680 8885 

UNITSL 002004 1557# 1760* 2043 

UNLOAD 002046 16034 4601 

UNS = 040000 1304a 

UPE = 020000 12424 3627 3631 

uSi = 000001 1229¢ 

uS2 = 000002 12308 

US4 = 000004 12314 

uwR = 000010 14454 

VAR} 037414 1830* 1831" 1832* 8415# 

VAR2 037422 1833* 1834" 1835* 1836" 84168 

vuF = 000002 14448 

vu30 = 010000 13814 

vv = 000100 12784 2932 3033 3790 3872 6802 6822 6859 8175 8178 3305 8308 9191 

WAIT.1 043304 9257# 12042 

WAT == 104415 3270 3456 3813 3934 3937 4002 4005 8186 8316 12042e 

wC 001706 1526# 3926 3960 3994 4028 7187 7201 9023 12831 

wCE = 040000 1243# 6552 6683 7169 7173 

wCF = 000040 1295# 

wCRC 051516 5934 6061 6187 6304 6399 6914 7032 7307 7946* 8015" 8115 8245 8366 
9336 9435 9594 10535 108368 

wu = 000001 13694 13878 

WCYL 052754 5465* 5472 5575* 5582 5696* 5703 5820" 5827 7436 = 109120 

WECC? 052534 §$522* 5632" 5756* 10841# 12864 

WECC2 052556 5523* 5633" 5757" 10842 12864 


wKEY! 052760 5408* 5578 5699" 5823* 109148 






eonmancintancinat —— 
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WKEY2 052762 5469* 5579" 5700" 5824* 10915# 

WLE = 004000 13014 

wORD 050526 10515* 10 
11298* 11306* 

WRCHDA 043770 6671 7160 94258 

WRCHDT 002062 16094 9355 

WRCHEK 002060 16084 9455 

WRCHHD 045456 6541 93278 

WRDATA 051204 10429 107554 10993 

WRFROM 002114 16254 1833 3041 3047* 3055 3139 3145* 3150 3880 3886* 3893 3947 3953« 
3961 4015 4021* 4029 4390 4397* 4404 4442 4450" 64457 4505 4512* 4520 
4555 4561* 4568 4637 4643* 4651 4683 4690* 4695 4784 4790* 4798 4832 


| 
| 
519* 10527* 10529 10531* 10533* 105355* 10576" 10580* 10610# 10620" 10653* 10650¢ 


-}WRHEAD 053050 10911 110304 
WRIDAT 002064 16104 6324 7455 8135 8265 8396 8775 
WRIFOR 002066 16114 5494 5607 5729 5848 7538 8670 9757 
WRITE 050764 tee 10555 106844 10780 10786 10792 10796 10799 11076 11096 11110 11123 11135 
46 
WRL = 004000 12834 
WRU = 000400 1377#@ §=©1395" 
WSECTR 052756 5467* 5577* 5698* 5822+ 10896 109138 
WSSYNC 051504 108344 
wSU = 000004 13714 13898 
wWTRK 052712 10898* 10901" 
WWORD 050762 10545 10549 10552 10556 10563 10568 10572 106794 10728* 10781 10787 10793 10797 
10800 11077 11081 11098 11111 11124 11136 11147 
x 047626 5931" 6058*  6184* 6301* 6396" 6911" 7029" 73048 7434% 8112" 82462" 8363 9353 
9431" 9633* 9650 10386 10421 : 
KE2 007304 1937 19664 
Y 047666 10432 
ZCODE 045446 9885# 10078* 12873 
ZER = 000400 1316# 10087 
ZwORDS 051202 10754@ 10774* 
SAUTOB 001134 7348 1744* 11636 11765 
$BDADR 001122 729H =.33198* «= 33207" «= 33.2119" =—« 33.227 «= 3.2632 = 3278 «= 3.339% = 3407" = 3445 * 8603465 *® = 771*® = 3 7B 
3797* 3821* 5861" 9175" 9181" 9185" 9197% 9202 9205" 922468 9231" 92378 92428 
12820 12823 12844 
$BDDAT 001126 228 230 2307* 2308 2411" 2433" 2684" 2704 
281 282 2831" 2832 2842" 2843 2852" 2853 





8309* 8489" 9075" 9077 9079 9081 
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9275* 9395" 9703" 9704 9713* 9714 9725* 9726 9733* 9735 9806* 9807 10549¢ 
10568* 11070" 11081" 11103" 11117" 11127" 111460" 11157" 128135 12817 12823 12828 12841 
12847: 12851 12854 12857 12878 

SBELL 001216 763 11589 11758 11842 11864 

SCHARC 055264 115046* 11514* 11521 11550" 11535¢ 

SCKSWR 055576 116224 12036 

SCMTAG 001100 717# = =165 1653 1661 1667 1668 

$CM1 = 000006 7498 750# 7514 7520 7534 7548 7558 

SCM2 = 000014 7498 7508 7514 7S2e 753a 754e 755a 

$CM3 = 000006 7478 749 

$C™4 = 000006 755a 7568 757a 7588 7598 7608 761" 

SCRTILC 056347 11577-11658 ~=—-11758# 

SCATLG 056361 11643 117604 

SCATLU 056354 11668 117598 

SCPLF 001225 A Ly store 2711 8976 §=11503 11538 11679 11758 11819 11850 11864 11872 11891 

6 

SOBLK 055040 11425 11459 39114678 

SDOAGN 041530 8914 923 8929" 

$OTBL 055030 11428 = =61146638 

SENDAD 041520 651 8925a 

SENDCT 041466 89164 

SENDMG 041537 8876 8918 89334 

SENULL 041534 8879 8921 8952a 

SEOP 041432 1802 1962 8883 89064 

SEOPCT 041460 89134 8917 

SERFLG 001103 720# =©9064 =611332) «11372 11374) 11380" 11401 11837* 11864 

SERMAX 001115 726# =1669* 11374 11396* 11401 

SERROR 056550 1661 1818 118334 

SERRPC 001116 727 = 11844" 11845* 11846 11864 11878 12813 12815 12817 12820 12823 12826 12828 
12831 12835 12838 12840 12841 12844 12847 12851 12854 12857 12861 12864 12867 
12870 12873 812878 

SERRTB 001226 7824 11886 

SERRTY 056716 11849 =118714 

SERTTL 001112 7244 8867 8869* 11843" 11864 

SESCAP 001214 7624 =1668* 11395* 11859 11861 11864 

SFILLC 001156 745#@ 11507 11538 

S$FILLS 001155 744# 11538 

$GDADR 001120 728a 

SGDDAT 001124 730# 1887" 2291" 2299* 2301 2311* 2408 2432" 2682" 2689 2693 2792" = 2795 


2808" 2818*  2830* 2832 2841* 2851* 2861" 2871" 2881" 2891" 2901" 2911* 2912 
2920" 2929" 2941% 2953 2964* 2975 3286* 32948 33532 3410" 3411 3479* 3487+ 
3497" 3533* 35463" 3573" 3583* 35620" 3621" 3632* 3663" 3671" 3696" 3704" 4103+ 
4114* 4125" 4139" 4141 4152* 4154" 4157 4165* 4175" 4185" 4195" 4205* 4215* 
4224* 4225* 4227 6234* 42463" 4254 4265" 4275% 4285* 63448 $449" 6816"  6962* 
7062* 7069* 7071 7080* 7472* 8155" 8178* 8285" 8308" 8488 9070" 9072* 9074 

8 9809* 10524* 10548* 10565* 10567* 
10590* 11069* 11080* 11102" 11116* 11128" 11139* 111528 12813 12815 12817 12847 812851 
$GET42 041510 89228 
$GTSWR 955666 det 12034 


388 =611390* 11400 


$1 660 11680 11765 
SITEMB 001114 725m 11 
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Sif 001224 766" 11538 117469 11758 11819 11864 

SLPADR 001106 7228 «=61670® «=. 2061" «=8991* «99002-11378 11393" 11398 11400 

SLPERR 001110 7238 = 1671® «=3767* «=3978* «606 7B82* «BG 7* «= 8974—Ss«900 «11378 )=—-11394* 11400 11858 

SMAIL = teeeee Y 1688 1740 11393 11491 11852 

SMNEW 056377 11647 11763" 

SMSWR 056366 11644 117618 

SMXCNT 054622 11391 11400# | 

S$NULL 001154 743@ 11509 11538 

$NWIST= 000001 1765#@ ©1767 18414 1843 18748 18938 2067 20469 21746 2176 2208 2210 22648 
2246 2266 2268  2320# 2322 23668 2346 23680 23918 2393 26498 2451 
24758 2477 25018 2503 25268 2528  2547# 2549 25818 2583 2754# 2756 3005# 
3007 3074H = 3076 Ss 3169" = 3171 32318 863233) «= 3303" 05 33798 = 3381 34198 3421 
3506# 350 35534 ©3555 35918 3593 36448 3646 36778 3679 37368 3738 «©=©638320 
3834 3910" 3912 40458 4047 43228 4324 6584# 46586 47198 4721 48628 4864 
4993" 499 5123# $12 5194" 5209" 5211 54224 5441# 5443 5552 5554 5673e 
5675 5797" 657 5a9ia = 5 6018 6020 6144 6146 6270# 6272 63658 6367 
64804 6482 66114 6613 67458 6747 68798 6881 69934 699 70934 7095 72618 
7263 76064 7406 7504 7506 7607 76228 7624 6884 77038 7705 7769 77848 
7786 7846# 78614 7863 7922 7924 7990# 7992 8064# 80824 8084 8196# 8212# 
8214 8322 8326 8507# 85228 8524 86254 8627 87358 8737 88458 8847 

SOCNT 057314 11952" 11981" 11994 

SOMODE 057316 11947* 11951" 11956 11959* 11970* 11996# 

SOVER 054606 11355. 11371 «11379-11389 s«11397" | 

$PASS 001100 7184 4618 8875* 8877 8910* 8911" 8919 8932 11385 11401 

SPOWER 057562 12078 12085 

S$PWRAD 057550 12080 

SPWRON 057410 1665 12067# 12075 

SPWRMG 057544 12078M 

SPWRUP 057462 12 12063" 

$QUES 001222 7644 11538 11698 11742 11758 11816 11819 11864 

SRDCHR 056140 11711# 12037 

SRODEC= eeeeee y 12040 

SROLIN 056230 11734# 12038 

$RDOCT 056410 11780# 12039 

$RDSZ = 000011 117274 

SREGAD 001160 7470 

$REGO 001162 7494 

$REG1 001164 750" 

$REG2 001166 751" 

$REG3 001170 752m 

$REGS 001172 7538 

SREGS 001174 754M 

SRTNAD 041532 8931" 

$R2A = seeeee YL 12040 

SSAVRE= eeeeee YJ 12040 

SSAVR6 057560 12056* 12064 12065* 12066* 12084 

$SCOPE 054332 1659 113414 

$SETUP= 000117 1650# 1658 1659 1661 1663-1665 1667 1668 1670 1737, 8908 »~=—-11342—S—«*1:1581 
11586 11587 11617 11765 11834 11855 11863 

$$$1 = 000000 1689" 

$STUP = 177777 1650 

$SVLAD 054560 11363 911392 

$SvPC = 000200 649" 654 priges 3 

$SwR = 167770 474 = 4B4 514 515 516 517 518 519 520 521 > 761 762 763 
1667 1668 1670 1671 1772 1849 1878 1897 2060S 21832215 2251 2278 
2327. 2s 2351 2375 = 2398 )~=— 2656) 2482S 2508 )~=— 2538S 5540S 2596s HH «= 3015 3088 
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3180 3246 3312 3386 3428 3513 3560 3598 3651 3684 3744 3842 3919 
4056 4332 4593 4729 4872 5003 5133 5198 522 5426 5452 5563 5683 
5807 5900 6027 6155 6280 6375 490 6622 6760 6890 7004 7106 727! 
7414 7523 7611 7636 7692 7717 7773 7798 7850 7875 7936 8004 8068 
8093 8200 8223 8338 8511 8533 8639 8749 8855 8903 8909 8924 8930 
8932) 11333) 11534) = 11335) 11336) 11337) 11354011366) 11368 = 11369) = 11372) 11373511374 
11381) «= 113820011383) 11394) 11397) 11400) Ss: 11825-11826) 111827) Ss 111828 = 11829-11840) =: 111847 
11852-11856) =: 111864 =: 12081 

SSwRMK= 000000 521 522. 11337 )=—-:111338 ~=—- 11370 

STIMES 001212 7618 1667* 1772 1849 1878" 1897" 2060* 8855* 8909* 11381* 11388 113591* 11400 

$TKB 001146 740M 11541 11562 11573 11598 11626 11653 

STKCNT 055270 11542@ 11557" 11587 11604* 11718 11720* 

STKINT 055310 1901 3111 9068 10174 11557# 11578 11639 

STKQEN= 055307 11546# 11612 11723 

STKQIN 055272 11543# 11558" 11559 11610" 11611* 11612 11614* 

$TKQ0U 055274 11544@ 11559" #11721) 11722" 11723 = 11725* 

S$TKQSR 055276 11545# 11558 11614 11725 

$TKS 001144 # 11541 11563" 11594* 11596 11602" 11624 11640" 11650 11662* 11682* 

STKSRV 055360 11560 115738 

STMPO 01176 1978* 1979" 9261* 9266 9271 9275 9385* 9399 9498* 9544" 12828 

STMP1 001200 756# 81787" $2467" 5272 5339* 5343 5357* 5387 6784* 6839" 9262" 9266 9271 
9386* 9401 12826 12828 12841 

STMP2 001202 757#@ = 5$275* «5276 5345" 5346" 9265" 9268 9270" 9273 9500" 9542" 12841 

STMP3 = =001204 758# = =—5279* =—5349% = 9259 = 9260" )§=— 9499 =: 9501 9502* 12828 12841 

STMPG 001206 759M = =5269* 5278 300* 5329* 5348 9501* 9525* 

$TmMPS = =001210 RAs 4353* 4355* 4356 4362* 4364" 4365 4434 9497" 9503" 9509 9622* 9701 | 

STN == 000124 4748 484 1752 1765 1772# = 1774 1841 18498 1851 1857 1874 18784 1880 
1886 1893 1897# 1900 2042 2047 20604 2063 2174 21834 2186 22158 
2221 2228 2244 22518 2253 2266 2273# 2275 2320 23278 2329 2344 23518 
2353 2368 2375# 8 2377 2391 2398# 2399 2449 2456 2459 2475 24828 2485 
2501 25084 2510 2526 25334 2535 2547 25544 2556 2581 25908 2591 2754 
27664 2993 3005 3015 3016 3074 30834 3084 3169 31808 3181 3187 3226 
3231 32464 3247 3255 3293 3303 3312¢ 3318 3379 33864 3392 3412 3419 
34284 3429 3435 3494 3506 3513# 3514 3520 3542 3549 3553 3560# 3561 
3582 3591 35984 3599 3605 3636 3644 36514 3652 3670 3677 36848 3686 
3703 3736 37448 3746 32 38428 3843 3910 39194 4045 4056# 4057 4303 
4322 4332# 4333 4584 4593# 4594 4714 4719 4729# 4730 4862 48728 4873 
4993 5003# 5004 5123 5133#@ 5134 5194 5198# 5199 5209 52218 5222 5422 
54264 5427 5441 54524 545 5518 5541 5552 55634 5564 5628 5656 5673 
50834 5684 5752 5779 5797 5807# 5808 5891 5900# 5901 5980 6005 6018 
60274 6028 6107 6132 6144 6153# 6154 6233 6258 6270 6280# 6281 6285 
6336 6357 6365 6375# 377 6430 6471 6480 6490# 6497 6 6611 66228 
6630 6725 6745 6760# 6762 6869 6879 68904 6892 6984 5993 70048 
7011 7093 7106# 7114 7245 7261 72718 7275 7353 7392 7404 7414 7419 
7495 7504 7523# = 7525 7607 7611# 7612 7622 7636# 7639 7688 7692# 7693 
7703 7717# = =7720 7769 77738 4 7784 77988 7846 7850# 7851 7861 
78754 = §=7878 7922 7936# 7939 7990 80044 8064 8068" 8069 8082 80938 
8096 8196 8200# 8201 8212 8223# 8226 8322 83358" 8339 8507 8511# 8512 
8522 85334 8534 8625 8639# 8640 8735 87498 8750 8845 88554 

$TPB 001152 742# 11527" 11538 

$TPFLG 001157 746# 114685 11538 

STPS 001150 741# 11525 11538 

STRAP 057320 1663 12005# 

STRAP2 057342 12016# 12027 

$TRP = 000016 12020# 12029 


# 12030# 12031# 12032# 12053# 12034 12035# 12036 12037#@ 120388 120398 120408 
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120461 12042# 12043# 

STRPAD 057354 12010 12027# 

STSTNA 001102 7198 = =68870" §=—8908* 11332 11370 11392 11397 11401 11839 11864 

STTYIN 056336 11735-11736) 11753) «137578 

STYPBN= teteee YJ 12033 

STYPDS 054624 114134 12032 

$TYPE 055050 114854 12020 12028 

STYPEC 055220 11506 = 11513) 11520) =) -11525# 11526 §=611684 

STYPEX 055266 11531 «11533: 11536# 

$TYPOC 057116 11950# 142029 

STYPON 057132 11949 11952# 12031 

$TYPOS 057072 11945# 12030 

SXTSTR 054364 11357# 

$$GET4= 000000 89248 

SOFILL 057315 11946* 11950* 11960 11995¢ 

SGOCAT= tener Y 11354 = 11849 

. = 070364 6378 6418 649 650" 6528 6548 658" 7084 7168 767 1550# 16248 1625#@ 
16264 1656 1670 1671 17034 1708 17218 17254 18114 1817# 1908 19468 19528 
19604 2010 2017# 2023# 21118 21528 21588 21644 21908 2194 22048 46268 88668 
8932 8936 89804  8995# 10190# 10214 10226# 108334 108344 108354 10836 10837# 10838# 
10840 10841# 10842# 10843# 108448 11400 11401 11467# 11538 11541 11545 11546 115478 
11757# #11758 11765 11819 11864 11919 12059 12083 129418 
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CHECKA 509# 5519 5629 5753 5981 6108 6234 7354 

CHECKB 5094 84314 5239 5489 560 5724 5843 5950 6077 6203 6320 6414 6764 6929 7048 
7323 7451 7527 8131 8261 8392 8560 8665 8770 9351 9451 9618 

COMMEN 1a 485 6344 82721 

ENDCOM iL 492 6348 2746 

ERROR 5284 §=61788 1866 1889 2235 2260 2293 2304 2313 2336 2360 2384 2413 2435 2466 
2492 2517 2542 2563 2678 2797 2998 3065 3159 3199 3208 3220 3228 3264 3279 
3290 3297 3340 3357 3359 3408 3414 3446 3466 3481 3489 3500 3535 3545 3575 


9198 92 9206 9 9 9238 9243 9276 9666 9668 9692 9694 9709 9720 9730 
9740 9811 10017 10023 10091 

ESCAPE la 6344 

GETPRI la 6344 

GETSWR iL 4748 6344 1737 


HCOMPR 5094 7637 7718 7937 
HCOMPW 5094 7799 7876 8005 
MAKECL 509# 5194 5422 7607 7688 7769 7846 8064 8195 8507 


MSG 17644 §8 1767 18404 1843 20464 2049 21748 2176 2208# 2210 22434 2246 22654 2268 23198 
2322 23438 2367# 2370 2390# 2393 bo 2451 24748 = =—2477 25004 503 25258 528 
3305 33788 1 34184 421 3505# 3552a 35904 3593 36434 3646 36768 3679 
3735¢ 3738 38314 3834 3909# 1 40448 4047 43214 432 45834 4586 47184 4721 4861# 
4864 4992# 4995 51224 5125 5208# 5211 54408 5443 55514 5554 5672# 5675 ey 5799 


0 7 
82114 8214 83208 8324 85214 8524 86244 862 8734" 8737 88454 8847 
MSGA 76228 = =7624 7705 7924 
MSGB 77838 §=©7786 7863 7992 


MULT la 6344 

NEWTST 1a 6344 1765 1841 1874 1893 2047 2174 2208 2244 2266 2320 2344 2368 2391 
2449 2475 2501 2526 2547 2581 2754 3005 3074 3169 3231 3303 3379 3419 3506 
3553 3591 3644 3677 3736 3832 3910 4045 4322 4584 4719 4862 4993 5123 5194 
5209 5422 5441 5552 5673 5797 5891 6018 614 6270 6365 6480 6611 6745 687 
6993 7093 7261 7404 7504 7607 7622 7688 770 7769 7784 7846 7861 7922 7990 
8064 8082 8196 8212 8321 8507 8522 8625 873 8845 

POP 6344 9028 1 9313 9409 9547 9595 977 9813 10042 10106 10146 10438 10592 
10662 10730 10804 10997 11155 11270 11310 11454 1180 12068 12069 

PUSH 6 9018 11 9303 9376 9489 9492 956 9754 979% 9902 19066 10120 10350 
10497 10616 10684 10760 10879 110 11201 «11291 3141 11782 =12049 = 12055 


S$ 
SAVTST 5094 1774 1851 1880 1900 


—VAOOO—]- WM NFLWUWMOWONO 
COWWR WO OW COOK LwN Oust 


MONA Ew WO 
MmMLOONOWwW wo 
= 
wm 
w 
Ww 
MRONA Ew WO 


8069 
SCOPE 529# =—-1771 1848 1877 1896 


_-—_—- FCC OY 
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2481 2507 2532 2553 2589 2765 3014 3082 3179 3245 3311 3385 3427 3512 3559 
3597 3650 3683 3743 3841 3918 4055 4331 4592 4728 4871 5002 5132 5197 5220 
5425 5451 5562 5682 5806 5899 6026 6152 6279 6374 6489 6621 6759 6889 7003 
7105 70 7413 7522 7610 7635 7691 7716 7772 7797 7849 7874 7935 8003 8067 
8092 8199 8222 8337 8510 8532 8638 8748 8854 8907 

SETPRI a 6348 11714 

thi ang * na ‘eer 12031 12032 12034 12036 12037 12038 12039 12040 12041 #12042 

SKIP i] 509# 6344 1752 1886 2042 2186 2993 3226 3293 3412 3494 3542 3582 3636 
3670 3703 4303 5518 5628 5752 5980 6107 6233 6336 6357 6430 6471 6869 6984 
7353 7392 7495 

SLASH 1 63 

SMORE 509# 11343 

SPACE 6344 

STARS la 500 507 634m 647 707 712 767 1211 1213 1251 1253 1765 1770 1841 
1847 1874 1876 1893 1895 1990 2000 2047 2058 2093 2104 2127 2165 2174 2181 
2208 2213 2244 249 2266 2271 2320 2325 2344 2349 2368 2373 2391 2396 2449 
2454 2475 2480 2501 2506 2526 2531 2547 2552 2571 2577 2581 2588 2639 2649 
2733 2736 2754 2764 3005 3013 3074 3081 3169 3178 3231 3244 3303 3310 3379 
3384 3419 3426 3506 3511 3553 3558 3591 3596 3644 3649 3677 3682 3711 3721 
3728 3732 3736 3742 3832 3840 3910 3917 4045 4054 4322 4330 4584 4591 4719 
4727 4862 4870 4993 5001 5123 5131 5194 5196 5209 5219 5422 5424 5441 5450 


5552 5561 5673 5681 5797 5805 5866 5886 5891 5898 6018 6025 6144 6151 6270 


7 0 8 
10605 10670 10672 10741 10744 10819 10825 10851 10853 11007 11009 11167 11169 11280 8 11282 
11329, 11403) 11470) 11540) 11617) 11632-11703) 11727) 11768 )3=611821))S 11866 = 11922) =: 11999 12045 =: 112061 
SWRSU iL 6344 16724 
TJUMP 509# 1857 2221 3187 3253 3318 3392 3435 3520 3549 3605 4714 7011 
TRMTRP 120204 
TSCLR 509# 2807 2817 2840 2850 2860 2870 2880 2890 2900 2919 2963 2974 
TSCLR1 5094 2940 2952 
TSCLR2 509# 4102 4113 4124 4164 4174 4184 4194 4204 4214 4233 4274 4284 
TSCLR3 509# 4253 4264 
TSCLR4 5094 2827 
TSCLRS5 509# 4136 


TYPBIN la 6344 
TYPDEC la 6344 8919 11906 
TYPNAM la 6344 
TYPNUM la 6348 
TYPOCS la 6344 2693 2706 
TYPOCT la 6348 2118 21246 11648 11878 11903 
TYPTXT 1 6344 1699 1705 1710 1714 1718 1722 1726 1730 1753 1792 1808 1814 1905 | 
1909 1913 1917 1944 1949 1953 1957 2007 2014 2020 2108 2114 2120 2148 2154 
2160 2187 2191 2195 2201 4623 8857 8863 8964 897 8977 8981 8985 8992 8996 
10163 10170 10186 10193 10199 10205 10211 10215 10219 10223 10229 10234 11317 
WOATAR 5094 6283 8094 8224 
XREAD 509" 5903 6030 6156 7276 
SSCMRE 710# 749 750 751 752 753 754 
SSCMTM 710# 755 756 757 758 759 760 
SSESCA la 6344 
SSNEWT la 634 1765 1841 1874 1893 2047 2174 2208 2244 2266 2320 2344 2 568 2391 
2449 2475 2501 2526 2547 2581 2754 3005 3074 31609 3231 3303 3579 3419 3506 | 
j 
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3553 3591 3644 


8064 8082 8196 


EQUAT la 474m 

«FLOAT 5094 2226 2251 
» HEADE la 474 

KT11 la 4748 672 
SETUP la 4748 § 1649 
SWRH1 la 474" 510 
SWRLO 4748 5228 523 
-SACTI la 474m 645 
SAPTB la 

SAPTH la 

SAPTY la 

SASTA la 

SCATC la 4748 635 
SCMTA la 4748 710 
$0B2D la 

$0B20 la 

$DIV la 

SEOP lf 4748 8898 
SERRO lf 474@ 11819 
SERRT 16 4748 11864 
SMULT ls 

SPOWE ia 474# 12043 
$SRAND la 

SRODE lf 

$RDOC lf 474# 11766 
SREAD la 474@ 11538 
$R2AZ lf” 
- SSAVE la 

$SB2D la 

$SB20 la 

$SCcoP la 474# 11327 
$SIZE la 

SSUPR la 

STRAP lf 474# 11997 
$TYPB lf 

$TYPD lf 474# 11401 
STYPE lf 474# 11468 
$TYPO la 474@ 11920 
$40CA lf 

.1170 la 


- ABS. 070364 000 


ERRORS DETECTED: 0 


MACY11 30A(1052) 


3736 
5673 
7504 
8322 
12032 


2351 


10-SEP-79 
3832 3910 
9797 5891 
7607 7622 
8507 8522 
12034 12036 
2575 2457 
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4045 
86 
12037 


2483 


CZRJGD.BIN, CZRJGD.LST/CRF/SOL/NL:TOC:MC:MD:CND/LI:ME=CZ2RJGD.SML,CZ2RJGD.P11 


RUN-TIME: 86 126 9 SECONDS 
RUN-TIME RATIO: 416/225=1.8 


4719 
6365 
7784 


12040 


2554 


12041 


—-—--—~ 
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CORE USED: 38K (75 PAGES) 


